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Competitions 


The winner of our February registration 
card draw is Justin Mason from the Isle of 
Wight. He receives a Centronics interface 
courtesy of Miracle Systems. 

The ‘Questions and Answers’ competi- 
tion in the same issue brought forth some 
amazing answers, but the correct solu- 
tions were: D RAM stands for Dynamic 
Random Access Memory, ‘ns’ represents 
nanoseconds (10~° seconds), CP/M is Con- 
trol Program for Microcomputers and the 
formattted storage capacity of the Firefly 
disk, 7.5 Mbytes. 

Quite a lot of readers answered all 
these questions correctly, so the tiebreak- 
er came into play. The final choice was a 
difficult one, but we decided that the 
winner should be Chris Abbess from 
Woodford Green, Essex. His reason was: 
“Perhaps Lashley’s trace will be found in 
Quest’s memory enhancements”. 

Second prize goes to Mr V Holland from 
Cambridge, who came up with a different 
idea: Quest ‘Executive’ Now Gives -Reli- 
able Alternative to Microdrive. 

Third prizes go to J Stevens from Rom- 
sey, Hants, D E Nixon from South- 
ampton, and B T Szocik from Clapham, 
who proposed: ‘Letters not common to 
MERLIN and GRAIL are ENGRAM’. 
Originality was the key to our selection 
here, but perhaps BTS would care to 
elucidate? 
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Who Gives A TOS? 


The QL walks the borderline 
between the top end of the 
home computer market and 
the low end of business 
machines. To generate a large 
software base, computers in 
the home market need huge 
sales (which the QL hasn’t yet 
got), while business computers 
need torun an industry 
standard operating system 
(which the QL hasn’t got, but 
which three different 
companies reckon they can sell 
you). 

The two most successful 
operating system standards in 
the business world have been 
CP/M 80, supplied by Digital 
Research for 8-bit computers, 
and MS-DOS (or PC-DOS) 
supplied by Microsoft and 
implemented on the 16-bit IBM 
PC and its imitators. 

QL users have the choice of 
sticking to the computer’s 
native QDOS, or of 
supplementing it with CP/M 
80, CP/M 68K or 68K/OS— 
rival systems which claim an 
established software base, the 
possibility of plugging your QL 
into an up-and-coming 
industry standard, or both. 

CP/M 80 offers the QL user 
thousands of tried and tested 
programs, but was written for 
8-bit processors; buying a 
68008 and running CP/M 80is 


Sid Smith reports on the latest forward and backward steps 


on the QL front. 


like buying a buzz-saw— and 
cutting wood with the engine 
turned off. 

CP/M 68K makes more use 
of the QL’s central processor, 
but has far fewer application 
programs. 

68K/OS, say its adherents, 
more thoroughly exploits the 
68000 than any of the 
alternatives, but at the time of 
writing it hasn’t a single 
applications package. 

Which brings us to QDOS. 
For the QL owner, QDOS has 
the great advantage of 
requiring no additional outlay, 
and according to this 
magazine’s Technical 
Consultant —is at least the 
equal of any ofits rivals. 
Software support continues to 
be disappointing, but with the 
price cut in microdrive 
cartridges and a growing 
awareness among 
programmers that sooner or 
later they’ll have to learn 
68000 code, there’s reason for 
remaining hopeful. 

However, there’s no chance 
of QDOS being adopted by 
other manufacturers and 
becoming an industry 
standard for business 
software. QDOS will attract 
software support only in 
proportion to sales of the QL. 
By using its own particular OS 
for the QL, Sinclair has 
ensured that—like the ZX 
computers before it — the 
machine has to make its own 
way in the world. 

All of which is in direct 
contrast to Atari. Jack 
Tramiel’s new company has 
likewise priced a machine at 
the borderline between the 
home and business markets 
but has equipped its new ST 


Not the usual sort of computer crime sarge, 
there’s a woman outside who claims it indecently assaulted her. 


Will the QL ever become a real communicator? 


Modem Times 


OEL, makers of the QL comms 
package, seem to be doinga 
Sinclair on us. OEL have been 
advertising QCOM-— and 
cashing cheques for it— since 
late November, and the three- 
module package was officially 
launched at the Birmingham 
Which Computer? Show in 
mid-January. 

But throughout all this time 


QCOM wasn’t ready, and early 
buyers heard nothing from the 
company till the end of 
January, when letters arrived 
postponing delivery till mid- 
February — we’ve still had 
nothing to date. 

OEL attribute the delay toa 
four-week slippage in the 
arrival of the customised 
‘computer ona chip’ which sits 
at the heart of the comms 
package. 


range with an OS closely 
related to a potential industry 
standard. 

“But,” youmay cry, “the 
Atari OS is some obscurity 
called TOS— which isn’ta 
potential anything.” 

Well, although Atari and 
Digital Research are curiously 
shy about it, conceding only 
that the latter company was 
responsible for writing part of 
TOS, asenior DR official has 
confirmed to us that TOS was 
“essentially based on CP/M 
68K”. 

In other words, software 
written under CP/M should be 
relatively easy to port across to 
the ST range. Whatever 
problems the Atari machines 
face, their support from large 
business packages should grow 
much more quickly than the 
QL’s. 

Sinclair, meanwhile, claim 
not to be worried by Tramiel’s 
new range. “We'll believe it 
when we see it,” is what they 
say. 
The Atari ST machines, 
unveiled at Las Vegas in 
January, are built around the 
Motorola 68000 chip (a faster 
version of the QL’s processor), 
have a minimum of 128K 


‘Jack the Lad?’ 


RAM, boast the Macintosh- 
style GEM user interface (a 
mouse, windows and icons 
front end, also employed in the 
£3000 Acorn ABC range), have 
better sound, keyboard and 
interfaces than the Sinclair 
machine, and compete head-on 
in price. They’re due to hit the 
UK in Spring. 

Apart from insisting that 
they'll be able to sell the QLin 
America (they’re wrong), 
Sinclair’s attitude is that 
manufacturers are always 
announcing products they 
don’t have ready. . . which 
reminds us, the Atari 
unveiling comes exactly a year 
after the QL was launched — 
coincidence or calculation? 
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Winning Wafer 


Work on Sinclair’s 0.56Mb 
wafer scale memory chip for 
the QLis progressing 
according to schedule, says a 
chief designer involved in the 
project. 

As reported in these pages 
some months ago, Sinclair 
plans to build its own factory 
for wafer scale integrated 
circuits — circuits, that is, 
which occupy the whole of the 
several inch diameter surface 
of asilicon wafer, rather than 
the tiny fraction which is 
broken off to form the familiar 
silicon chip. 

In the December/January 
QL User, Sir Clive explained 
that the first of these WSI 
circuits would be a “silicon 
Winchester” for the QL, 
offering 0.5Mb for a price 
around £200 (though his latest 
pronouncements put the cost to 
between £300 and £400), and 
capable of massive speed. 

“The speed is so high,” said 
Sir Clive, “that you will be able 
to store whole screens of 
information and then play 
them back quickly, to produce 
animation.” So attractive is the 
prospect of this WSI memory 
circuit that — according to some 
reports—Sir Clive is even 
having second thoughts about 
the promised QL Winchester 
interface. 

Work on the memory circuits 
of the WSI unit is being carried 
out at the British custom 
circuit house of IMS, possibly 
the only company in Europe 
with the necessary expertise in 
specialist memory design. 

“We’re doing the memory 
and the basic wafer,” explained 
IMS’s Graham Davies. “The 
control logic is being done by 
Sinclair under a design team at 
the Metalab.” 

The memory circuit will plug 
into the QL’s external RAM 
socket, and draw its power 
from the QL. However, “Ifthe 
power goes off, either through 
power failure or because the 
memory unit is unplugged, 
then a battery will switch in to 
preserve the wafer’s contents.” 


STOP PRESS! 


Some interesting develop- 
ments for QL ROM spotters, 
from Alan Turnbull 


Recently, after receiving my 
QL back from a repair at 
Camberley under warranty, I 
was astonished to find yet 
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another response from the 
function ‘VER$’ which returns 
the two-letter code of the 
current version of the QL 
ROM. 

The code it came back with was 
‘JS’ and not ‘JM’ ...so what do 
you get in ‘JS’ which is not in 
previous releases? 

Well, you will be glad to 
know that the construct 
‘WHEN’ together with ‘ERRor’ 
is implemented so that error 
trapping is at last possible on 
the QL. This is further 
supported by 25 extra 
SuperBasic keywords. An 
example program showing the 
use of some of these extra 
keywords in conjunction with 
‘WHEN ’ is listed below. 

Also with ‘JS’, you get a trace 
facility and the option of re- 
vectoring the messages output 
to the console such as error 
reports and prompts. 

New functions return values 
associated with the error 
status of the QL. ERNUM 
gives the error code of the last 
error that occured, whilst 
ERLIN tells you at which line 
in the program it happened. All 
the other new functions return 
either 0 or 1. For example, if 


the last error was ‘overflow’ 
then the function ERR_OV 
would return 1. 

The procedure REPORT is 
intended for use with WHEN 
ERRor asa means of printing 
the error message, which 
would have been sent to 
channel 0, to any other 
channel. 

In terms of bugs, the ‘JS’ 
ROM is pretty clean. The 
number base conversion utility 
vectors documented in the 
QDOS Manualas “not working 
on QDOS versions 1.03 and 
before” have been fixed and 
there seems to be an extra 
vector because the 
initialisation routine which 
was at address 360 on previous 
machines is now at address 


REMark 
REMark 
a 

WHEN ERRor 


362. 

‘JS’ still complains when you 
try to use a simple variable 
with the same name asa 
DIMensioned array but anew 
bug is introduced: the formal 
parameter of a procedure/ 
function may not be used asa 
SELect variable — it must be 
copied to a LOCal variable and 
that must be used in the 
SELect statement. 

Perhaps the main bug- 
correction worthy of note is 
that the QL can now recognise 
16 plug-in peripheral cards 
rather than just the one. 
Someone had put a BGE rather 
than a BLT instruction in the 
testing loop! 

Further examples will appear 
in future issues of QL User 


‘WHEN’ demonstrator for QL ‘JS’ ROM 
COPYRIGHT (c) February 1985, Alan Turnbull 


AT RND(O TO 19),RND(O TO 39) 


PAPER RND(O TO 5) 


PRINT "### Error number "sERNUMy" at line "3ERLIN;" ###" 
PRINT £0;"Error ‘not found’ status = "sERR_NFy" "3 


REPORT 

END WHEN 

: 

MODE 4 

REPeat forever 
DIR mdv9_ 


LINE 83,0 TO RND(O TO 146),RND‘(O TO 100) 


END REPeat forever 


The latest news and views from IQLUG chairman Leon Heller. \ 


Besides the Swindon workshop 
mentioned in the last issue, 
workshops are also planned in 
Cambridge, Liverpool, 
Edinburgh, Leeds, the North 
East and Swindon again, in the 
autumn. The usual activities 
will be repeated. 


The Camberley 
Connection 


Irecently visited Sinclair’s 
Camberley distribution centre. 
The Camberley facility does 
not belong to Sinclair, butis 
run by GSI, a French-based 
multinational corporation. The 
level of customer support 
provided to Sinclair computer 
users was most impressive. 
One department deals with 
written queries, with standard 
paragraphs called up on a word 
processing system (not a QL 
with Quill!) for the most 
frequent queries, and an 
individual reply for the more 
esoteric ones. These are 
merged into the same letter, if 
the customer has several 
questions. Another 


department answers 
telephoned enquiries. Since 
they are handling several 
thousand queries a week, some 
mistakes will obviously occur, 
but I don’t know of any other 
UK microcomputer 
manufacturer who has 
something like 30 people 
working on customer support! 
One of our members was 
unable to get a Brother M1009 
printer working properly with 
Quill. Imentioned that Psion 
were unable to help him, and 
was immediately handeda 
piece of paper containing all 
the necessary information! 


Memory Gap 


One of our members, David 
Nowotnik, has sent in the 
following tip for users who miss 
the “PRINT MEM” function 
availablein MBASIC. PRINT 
PEEK_L(163860)— PEEK _W 
(163852) does much the same 
thing on the QL. 

Still on the subject of 
memory, readers thinking 
of buying additional 


memory might be interested to 
hear that external memory on 
the QL should run three times 
faster than the internal 
memory, if it has been properly 
designed! 

Any IQLUG members who 
would like to reach a wider 
audience than Quanta are 
welcome to use this column. 
Please send contributions 
direct to me so they can be 
passed on to QL User. 


The Independent QL Users’ 
Group (IQLUG) publishes a 
monthly newsletter, 
maintains a software 
library, supports local 
groups, and provides 
members with a free advice 
service. Workshops are 
arranged from time to time 
in different parts of the 
country. Further details are 
available from: 
Brian Pain, 24 Oxford 
Street, Stony Stratford, 
Milton Keynes MK11 
1JU. Tel: (0908) 564271 


EXPAND 


oLMemory 


Plate 


NGS 


OL: R RAM cards save y you: < 


from the standard QL power ~ PCML Ltd. Royal Mills, Esher Surrey. 
Al carck it corrletely witht TEL: 0372 67282/68631. 
lasing. = Tu lasses | 


ILLUSTRATION BY TONY RANDELL 


Writing machine code games 


demands flair, imagination 
and a mastery of all that is QL. 
In the first of a new series, 
lan Williams magics monsters 
from nowhere. 


In this series we provide a number of 
machine code routines which will 
ultimately combine to make a Space 
Invaders type game called Paladin. 
The order in which these routines 
have been presented means that, 
right from the start QL users will 
have something workable on screen 
with which they may experiment. 
Our first chunk of code is the 
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largest as it contains the main control 
routine for the game. However, most 
of the calls to subsidiary routines are 
preceded by a ‘;’ which will cause the 
assembler (Computer One’s in this 
case) to disregard them. The effect is 
similar to starting a line with REM in 
BASIC. In time the relevant section 
will be explained, subsidiary routine 
supplied, ‘;’ sign removed and the call 
activated. Meanwhile, these lines can 
only serve to whet your appetite for 
what is to come! 


MONSTER MAP 


Our first task is to define our space 
invader. For this we have decided on 
a block of 8 x 8 pixels, giving a 
monster 64 pixels square. Designing 


a sprite is fun. All you need is a piece 
of squared graph paper and a pencil. 
Draw out an 8 X 8 grid and then 
colour in the shape of your invader 
(fig 1). In mode 512 you have the 
choice of red, green, black and white. 
Remember, as each square only occu- 
pies a pixel it doesn’t pay to be too 
ambitious and aim for a multico- 
loured tapestry effect. Chances are, 
nobody’ll notice it, anyhow! 


NYBBLE 1 
8 4 2 iis 4 2 ‘i 


NYBBLE 2 


late taie 


a eetetet ct 


Figure 1. Planning the ws xX 8 grid. 
Now comes the intellectual bit. The 
screen is divided into 256 lines each 
consisting of 128 bytes. The bytes in 
each line are grouped into pairs called 
words (each 16 bits) and it’s these 
that control the colours of the pixels. 
The first byte is called high, the 
second, low. The way it works is this: 
each bit in the high byte (the first 
one) controls the green in each pixel 
and each bit in the low byte controls 
the red. If you want the pixel white, 
simply set both bits, and the opposite 
for black. So, if you want a pixel red 
then it’s 01 (no green and just red). If 
you want it green, it’s the other way 
a (10). Therefore, 11 = white and 
= black. Fig 2 should show you 
oa what’s happening. 


HIGH BYTE 
00011001 


LOW BYTE 
01100111 


oo 01 01 10 10 O1 O01 11 


e/R[RialalR[R iw) 


Figure 2. Colour bit designations. 


Now work your way through the 
design calculating the colour of every 
pixel in binary for each of eight rows. 
You'll be left with eight 16 digit 
numbers which can be converted to 
hex. The method we use saves time 
and it’s a lot easier to use. To design 
your own sprite follow the instruc- 
tions exactly. 

1. Draw an 8 x 8 grid exactly as 
shown in fig 1 (don’t forget the 


numbers on the top). 

2. Draw any shape you want and 
then initial each square with the 
colour you like at that point. 

3. Look at the top row only (that’s 
going to be your first four hex digits). 

4. Fach square has a number above 
it (8,4,2 or 1). Count the whites and 
the greens in the first set of four 
squares, add them up, and they are 
your first digit. Do exactly the same 
for the second set of four squares so 
you get your second digit. 

5. Now count the whites and reds in 
the first four squares, add them up 
and they’re your third digit. 

6. Finally do the same for the 
second four squares, and you have 
your fourth digit. 


I 
NYBBLE 1 NYBBLE 2 


1g 4 2 i 


8 4 2 1 


l 
Figure 3. Two half bytes from Fig 1. 


If yow’re still confused, look at fig 3. It 
represents line ‘C’ from fig 1. As you 


can see, it’s divided into two sections, 
each of which is 1 nybble (half a byte). 
Following the plan above, we first 
count the whites and greens in nyb- 
ble 1, add the numbers on top of them, 
and get $1. Repeat the operation for 
the second nybble and we get $9. So 
far, then we’ve got $19. Now we add 
up the whites and reds in the first 
nybble and get $6. Finally, doing the 


same to the second nybble we get $7. 


Full definition of line ‘C’, therefore is 
$1967. Easy, isn’t it? All these num- 
bers are then entered as data shown 
in the listing as lines 277 — 291. We 
use eight different sprite shapes and 
alternate the ‘a’ patterns with the ‘b’. 


STEP IN TIME 


Ok, now we have our invaders how do 
we move them? If you look at line 33 
you'll see the label repeat. It’s this 
loop that deals with all movement, 
calling three subroutines: un_paint, 
slither and paint. Cropping up all 
over the place is a variable num_sp. 
That is set to the total number of 
invaders placed on the screen at the 
start (strictly speaking, it’s the num- 
ber of elements in the array xpos,y- 
pos). The 1’ after it is so that the 
loop.will count down num_sp times. If 
we just used num_sp by itself, the 


computer would count ‘0’ as one and 
we'd get one loop too many. 

Un_paint is the first call and this 
is well explained in the listing (lines 
138 — 147). From here the program 
branches to blank_out (125 — 133) 
and then to cale_addr (259 — 270). 

Calc_addr is a very useful little 
subroutine. Lines 262 — 265 calculate 
the horizontal position on the screen 
of the first screen word (two bytes) we 
want to work on. Scr_top is a variable 
set to $20000 which is the address in 
memory at the top left hand corner. 
Adding it to d6, our x_position regis- 
ter, gives the absolute horizontal 
location of the word. A similar pro- 
cess is then undertaken to find the 
vertical location by lines 266 — 269. 

Un_paint deletes the invader by 
setting the bytes occupied by it to 
black using blank_out which is fully 
explained in the listing. Finally, 
paint pops a new invader on the 
screen. One useful little variable is 
flick, which alternates the invader 
types, thus giving a type of animation 
as well as movement. 

Entered as it stands, this program 
will give a set of invaders that cavort 
merrily across the screen at a frenetic 
rate. Next month’s issue will give the 
gun at the bottom of the screen and 
provide a missile launching routine. 


000 00020000 scr_top 


1 equ $20000 : Location of first screen word OO3E 7000 73 moveq #0,d0 3 location which is decided upon when 
9000 00000035 2 num_sp equ 53 j Number of invading things 0040 41FAO317 74 lea seq_num,ad } the assembler calculates the number 
9000 00000010 3 num_base equ 16 3 0044 1080 75 move.b dQ, (a0) ; of bytes which need to be added to 
0000 oo0000CE 4 ut_con equ $cb 3 QDOS vector to open console 0046 41FA02F2 76 lea flick,ad j the Program Counter so that the 
4000 o00000D0 S ut_mtext equ $d0 : QDOS vector to print a string 004A 1080 77 move.b d0,(a0) ; correct address can be found) you 
0000 00000032 6 score_poshi equ 50 3 Position (x co-ord) of high score OO4C 41FA02EO 78 lea xdir,ad ; have to lea (load the effective 
0000 OOOOOLED 7 score_pos equ 4B0 3; Same for ordinary score G050 1080 79 move.b dO, (ad) ; address) the label into an address 
9000 00000005 8 bas_pos equ 5 3 0052 41FA0326 80 lea baddyx,a0 } register which will then point to 
0000 0000000F 9 nemalt equ 15 i Height of mother ship 0056 SOBCFFFF 81 move.w #-1, (a0) 3 the correct address in memory.Phew 
0000 10 5 OOSA 41FA02D4 82 lea sd_flag,a0 ; 
0000 1h OOSE 1080 83 move.b d0,{a0) H 
9000 12 5 0060 41FAQ2FR = 84 lea numflag,a0 ; 
0000 3 coldstart 0064 1080 85 move.b dQ, (a0) ; 
0000 14; moveq #0,d0 } These three lines initialise the 0066 41FAOSOE 84 lea score,aQ ; 
0000 lea hiscore,ad 3 high Score to zero 006A 2080 87 move.l d0,(a0) 
Oooo move.l dO, fad) : O06 41FAOZED 88 lea invnext,ad H 
0000 bsr save_message ; All subroutines will be explained 0070 10BCOO1E a9 move.b #30, (a0) 
0000 61000026 warm bsr dimbo } fully as we print them 0074 90 5 
0004 bsr clear H 0074 91 3 This routine establishes the array which holds the screen positions 
0004 bsr setbarriers ; 0074 92 ; of each of the invaders 
0004 bsr savebarriers 5 0074 93 3 
0004 yrestart lea bulposx,ae } These two lines stops any bullet 0074 94 new_screen 
0004 move.w #-1,(a0) : movement on the screen 0074 41FA02CC «95 lea inv_speed,aQ ; Sets intital speed of invaders 
0004 61000184 bsr clear i 0078 10BCOOD2 96 move.b #210, (a0) ; Ditto 
a008 bsr loadbarriers 3 OO7C 41FA0240 97 lea xpos,ad ; Sets up AO and Al as array pointers 
0008 bsr new_gun ; 0080 43FA0206 98 lea ypos,al 3 for x and y arrays (inv positions) 
0008 61000160 bsr paint 3 0084 1E€3A02D5 99 move.b invnext,d7 ; Sets d7 to height of invader gaggle 
o00c bsr frint_score ; 0088 7003 100 moveq #3,d0 SA I a I Ss ete ee at gar 
o00c bsr print_hiscore 008A 7207 101 frog moveq 4#7,d1 ; This section spaces out 
o00C bsr print_bases O08C 7C1E 102 moveg #30,d6 3 the invader things on the 
oo00c bsr print_flags OOB8E 3006 103 froglet move.w d&,(a0)+ $ screen 
Oo0C bsr bombs 0090 12C7 104 move,b d7,fal)+ 
oooc epeat 0092 06460030 105 add.w #48,d6 ; 
oo0C bsr move_gun H 0096 SICFFFS 106 dbf di,froglet FT 
oo0c move.b seq_num,dd 3 This is complicated and we'll explain 009A 06070028 107 add.b #40,d7 ; 
a00c beq.s no_bang y; it fully in a future issue QO9E SICBFFEA 108 dbt G0strag RRS SSS ee ee ee eo 
ooac 3 bsr draws_bang ; QOAZ LE3AOZE7 109 move.b invnext,d7 
ooot 38 ino_bang ber drop_bomb H OAS 06070014 110 add.b = #20,d7 Same again, but this does 
9000 39 bsr bulmov ; QOAA 7002 pel moveq #2,d0 } the inner ones in a nice 
oo0t AO move.w baddyx,d0 i Checks x position of mother ship and OOAC 7206 112 newt moveq #6,d1 3 interlaced pattern!! 
oooc Al 3 bmi.s no_mum 3 draws it if it isn’t -1 QOAE 7036 113 moveg #54,d6 H 
G00C 42 bsr baddybus ; OOBO 30C6 114 newtlet move.w d6,(a0)+ 3 
QO0C 41FAQSIE 43 no_mum lea in_wait,aQ ; These lines count down between OOB2 12C7 115 move.b d7,(al)+ 
0010 5310 44 subq.b #1, (a0) ; invader movements 00B4 06460030 116 add.w #48,d6 
0012 6618 4s bne.s no_inv ; If counter not 6 then no move OOB8 SIC9FFF& 117 dbf di,newtlet 
0014 LOBAO320 46 move.b inv _speed,(a0) 3 Reset counter to inv_speed OOBC 06070028 118 add.b © #40,d7 3 
D018 47 bsr rev_bul ; 00CO SICBFFEA 119 dbf dO, newt 3 
0018 61900005 48 bsr un_paint 00C4 4E72 120 rts H 
OO1C 610000DAR 49 bsr slither $ oocs 121 
9020 61000148 = SO bsr paint 3 00C6 122 ; This is a lumpy (but quick!) way of removing any colours from the 
00 St bsr rev_bul 3 00Cé 123 ; screen at co-ordinates denoted by dé (x) and d7 (y) 
4SFAG314 52 lea flick,a2 : These two lines switch between oocé 124 3 
OALZ000L 53 eor.b #1,4a2) } alternative invader designs 00C6 125 blank_out 
54 move.w baddyx,d0 ; These lines check to see if a mother O0C6 48E72340 126 movem.] d2/dé-d7/al,-(a7) 
55 5 bpl.s  no_inv ; ship has appeared OOCA 61000114 127 bsr calc_addr i 
56 lea badwait,ad ; If no mum then decrease counter loop QOCE 7407 128 moveg #7,02 3; This clears the screen at position 
57 subq.b #1, (a0) } (regulates appearances af ship) ODO 4291 129 wipe clr.l (ai) 3 (al) and the 7 long words below to 
58; bne.s = no_inv 3 If counter<>0 then no mother ship OOD2 D2FCO0BO0 130 add.w = #128, a1 ; black (i.e. it wipes a sprite and a 
9020 59 lea baddyx,aQ 3 Else intialises mother ship 9904 SICAFFFS 131 dbf d2,wipe } big block either side to make sure 
oo2C 60 3 moveq #0,d6 ; OODA 4CDFO2C4 132 movem.1 (a7)+,d2/d6-d7/al 
él move.w db,(at) 3 QODE 4£75 133 rts y we got it!!) 
&2 moveg #nemalt,d7 QOEO 134 
63 3 bsr saver 3 Q0E0 135 ; This routine deletes all the invaders from screen prior to them 
60DE 64 no_inv bra.s repeat ; Does the loop,again QOEO 136 ; being moved left, right or down 
65 5 O0EO AST 5 
66 ; Dimbo sets up certain program variables Q0EO 138 un_paint 
a7 3 OOEO 41FAQIDC 139 lea xpos,a0 ; This sets a0 to x array 
68 dimbo OOE4 43FAG1AZ 140 lea ypos,al 3 Same for al to y array 
41FA032A 9 49 lea num_bas,a0 j QOE8 7434 141 moveq  #num_sp-1,d2 
1OBCO002 =70 move.b #2, (ad) i Because the 68008 can’t store data OQOEA 1E19 142 scruber move.b (al)+,d7 ; Co-ordinates of invaders popped from 
O036 41FA02FO 71 lea accel,ad 3 directly into a program counter OOEC 3C18 143 move.w (a0)+,d6 } array 
QO3A ZORCO004 72 move.W #4, (a0) } offset address ( that’s a memory OOEE 6802 144 bmi.s = nniny ; 1f deceased invader then try next one 
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61D4 bsr.s blank_out ; Deletes old,tired invader 
SLCAFFFS nninv abt d2,scruber 3; Next invader for same treatment 


j Sprite definitions 
4E75 rts : 


rite_defs” 
3; This routine moves the little invaders horribly across the screen ° a 


Sprite #0 invader la 
19183D3C dc.w $1918, $3d3c,$5b7e,$4tFF, $dbba,$ea5s, $a424, $2424 
SB7EFFFF 
DO6AEASS 
A4242424 


slither 
3B3A022E move.w accel,d4 3; Moves descent rate into d4 
4SFA0232 lea sd_flag,a2 ; These 3 lines determine whether the 
4Al2 tst.b (a2) invader‘s current move is across 
6630 bne.s mo_down 3} or down the screen 
A3FA0228 lea xdir,al ; These two lines move the direction 
1014 move.b fal) ,d0 3 into do 
1600 move.b d0,d3 
4LFAOLBO lea xpos,aQ a0 now points to x pos in inv array 
TAOO moveg 40,05 
7234 moveg #num_sp-1,di 
3410 move.w {a0),d2 x-pos is shifted into d2 
6BIC bmi. deader 3 if it’s negative then try next inv. 
4A00 tst. a0 


} Sprite #1 invader 1b 
9S1BBCSC dc.w $9B1G,S$bcSc,$da7e, SFftF ,$576a, F6D56, $2524, $4242 
DA7EFFFF 
S76AGB56 
25244242 
Sprite # 2 invader 2a 
91905258 dc.w $9190,$5258,$1438,$1030,877FF, $1019, $0008, 40008 
14381030 
T7FFLG18 
00080008 
; Sprite #3 invader 2b 


9444 sub. 4,42 Otherwise move left 

6002 bra. no_rite H 

D444 mo_rite add. d4,d2 3 Move right 

OC4201F3 no_rite cmp. #499,d2 ; Test if invader is at the far right 
6206 bhi. dir_ch : If so, change direction flag {d3) 
00420003 cmp. #3 ,.d2 3; Same for far left 

6206 bhi. deader 

1600 dir_ch move.b d0,d3 ; This changes direction flag which 
4603 not.b d3 3 changes their direction next time 
TAFF maveq #-1,d5 ; This forces descent next time 

3002 deader move.w d2,(a0)+ Moves new position back to array 
SiC9FFDC dbf di,shuffl ; Next invader, please 

1283 move.b d3,(al) This sets next horizontal direction 
1485 move.b d5,(a2) This stores the side/down flag i.e. 
4E75 rts if it’s -1 they go down next time 
4IFAOL4S mo_down lea ypos,ad 


3410140C 
OOFES41C 
S2129141 
Sprite # 4 > invader Sa 

9B1BBC3C é dc.w $9818, $bc3c,$da7e, $fF ff, $57ba,$hb56, $2524, $4242 
DA7EFFFF 
S76AGBS6 
25244242 

; Sprite #5 invader 3b 
19PLBSD3C dc.w $1918, $3d3c,$Sb7e, $f ft, $dbba,Feasb,$a424, $2424 
SB7EFFFF . 
D66AEASS 
A4242424 

3 Sprite # 6 invader 4a 
818852598 dc.w $8188,$5258,$341c,$140c, $00fe, $3410, $5212, $9111 
34101400 
GOFES41C 
S2129111 


3 This section does the same 

7034 moveg #num_sp-1,d0 ; thing for the vertical movement 
1216 drop move.b (a0),d1 3 as the previous section did for 
OCO1LO0FF cmp.b #-1,d1 ; the horizontal. 
6710 beq.s notendg ; 
D204 add.b d4,d1 H 
1081 move:b di,(a0) 5 EXCEPTS 
OCOLO0ED cmp.b #224,d1 «..if an invader descends below a 
6306 bis.s  notendg given level (set at 224) then 
DEFCOQG4 add.w #4,a7 : return address is taken off stack 

; bra endgame and this branches to endgame (more 
4E75 rts ; on this soon!) 
DOFCOOO! notendg add.w #1,a0 
S1iC8FFE2 dbf d0,drop 
4212 clr.b (a2) 


arte oben 


j Sprite #7 invader 4b 
91905258 dc.w $9190, $5258, $143B,$1030,$77FF , $1018, $0008, $0008 
14381030 
77FF1018 
00080008 


i 

align 
00000035 ypos ds.b 
00000035 xpos. ds.w 

align 
0000 accel dcww 
0000 gunpos dc.w 
0000 in_wait dce.w 
0001 xdir dc.w 
9000 sd_flag dc.w 


This puts the invaders on the-screen 


6B04 bmi. mo_rite 3 If direction negative then move right g1aB5258 dce.w «$8188, #5258, $341c,$140c,$00fe, $341c,$5212, $9111 
0 


i 
; 
H 
paint t 09010000 temp dc.l 09010000, $00000002 
4LFAOLS2 lea xpos,ad ; 20 and ai become pointers to the x oO 00000002 . 
ASFAOILA lea ypos,al and y arrays (invader positions) 0000 flick dc.w 
TA00 moveg #0,05 0000 bulposx de.w 
LAZA01C4 move.b flick,d5 Flick stores invader type bulposy dc.b 
7034 moveg #num_sp-1,d0 : O33F y_bomb dc.b 
1£19 move.b (al)+,d7 Pops y position into d7 0340 x_bomb dce.w 
5405 addq.b #2,d5 Selects the type of invader to 0342 inv_speed 
02050007 and.b = #7,d5 display next 0342 de.b 
3C18 move.w (a0)+,d6 } Pops x position into dé 0343 order dce.b 
SBO04 bmi.s dead If x pos is negative (dead) then try: 0344 dc.b 
61000018 bsr plot next one else plot current invader 0345 de.b 
SICBFFEE dbf d0,brush 3; Next invader, please 0346 ODOELAOF dc.b 13,14,26,15 
4E75 rts O34A 1BICIE1D de.b 27,28,30,29 
H O34E 1F202221 dc.b 31,32,34,33 
This routine clears the screen to black 0352 align 
0352 seqg_reg dc.l ci) 
0356 wumpx dcww i) 
24700002 move.l] #scr_top,a2 This clears 8192 long words 0358 wumpy de.b 0 
9000 0359 seq_num dc.b 
S23C1FFF 22 move,w #8191,d1 3 which clears the screen O35A num_bas dc.b 
429A resniw cir.) (a2)+ O35B 00 s invnext dce.b 
SLC9OFFFC dbf di,resniw O35C badwait dc.b 
4E75 rts O35D numflag dc.b 


O35E align 
This routine enables sprite appearance or disappearance using £OR O35E mask_tab 


Sprite number (d5) is “exclusively or“ed onto (or off)the screen at O35E 80804040 3 _ $8080, $4040, $2020, 81010 
dé (x co-ord), d7 (y co-ord) 0362 20201010 
lot 0366 08080404 . $0808, $0404,$0202,80101 
movem.) d2-d3/d5-d7/a0-al,-(a7) G36A 92020101 
bsr.s calc_addr 3; See calc_addr below O36E 00000000 mess 
neg.b 2 } Works out which pixels each 0372 00000000 hiscore 
add.b = #8,d2 3 invader thing will occupy 0376 00000000 333 score 
lea sprite_defs,ad 3; These lines calculate the position 037A 0000 baddyx 


4BE73700 
6138 
4402 
06020008 
41FA005B 
E£94D 
DiCcS 
TAG? 
4246 
4247 
1018 
1E18 
ES6E 


Isl.w #4,d5 of the sprite definition in memory O37C 0006 =5 rndpos 
add.} d5,a0 and deposit it in AO O37E 3 end 
moveq #7,d5 Setting up the count-down 

clr.w dé 

clriw qd? 
move.b (a0)+,d6 
move.b (ad)+,d7 
isl.w d2,d6 


} SYMBOLS : 
; Sprite definitions go into dé & d7 
j rndpos ROOGOOS7C hiscore ROGO00372 
} Moves the Green bits into position mess ROODOOS6E mask_tab ROOOOO35E 
ES6F Isl.w 2,47 3 Same for Red badwait ROOOOOSSL wumpy R0G000358 
3606 move.w d6,d3 ; These lines assemble the words in wumpx R00000356 seq_reg R00000352 
ELQB 1sl.1 #8,d3 3 d& and d7 into a long word and stores order ROOOOOT43 x_bomb ROO00O340 
; 
; 
3 


UN SSONe Mean SGOIS AeA 


RNR NNN MN NNN NNN RN NNN NNN 
SER SMHAAMMAAN MANN NNN 


3607 move.w d7,d3 it in ds y_bomb ROGOO033F bulposy ROOQOOO33E 
1606 move.b d6,d3 bulposx ROQOOO3SC. temp RO0000352 
E188 Isl.1 = #8,d3 gunpcs R0O000032A loop? ROGOOO1ES 
1607 move.b 47,03 sprite defs RO0000208 resniw ROQOO0I19A 
B791 2 eor.] d3,fal) See text plot ROOGGOIA2 dead ROOOO01BA 
D2FCO0BO 0 add.w #12B,al Screen pointer moves down one line brush ROGO0017A notendg ROGOOO1SE 
SICDFFEQ dbf d5,loop2 ; Get next bytes (goto loop2) drop RO0000146 dir_ch ROOOOOLZE 
4CDFOSEC movem.! (a7)+,d2-d3/d5-d7/ad-al no_rite 00000122 mo_rite ROG000120 
4E75 ets deader ROOGGO134 = shuff) ROOOOOI14 


mo_down ROGO00140) nninv ROOOGOOF2 
This routine calculates the address of a screen word pointed to scruber ROQOOOOEA wipe ROOOOOODO 


by d& (x co-ord) and d7 (y co-ord). The address is returned in at, calc_addr ROOGOOIEO blank_out ROOQOOOLE 
dé and d? are scrambled & d2 returns with the bit number (0 --7). newtlet ROOQOOCORG newt ROOOOGOAL 


froglet ROGGOOOBE frog ROQOOOOBA 
alc_addr ypos R00000288 xpos ROOOOGZBE 
02860000 and.1 #$lttyde ; These lines confine everything to new_screen RO0G00074 = invnext ROQQO035B 


O1FF score 00000376 numfiag R0000035D 
02870000 and.] HStt a7 3; the screen boundaries sd_flag RO00G0330 baddyx R0000037A 
OOFF RO000032E seq_num ROO000359 
3406 move.w 46,02 ; RO00003S2B num_bas ROOOOOS5A 
E44E lsr.w #2,06 Divides contents of dé by 4 R0000033A slither ROOOOOOFS 
O246FFFE and.w a$fffe,ds 3 Yieids an even number as answer ROOOOGOEO inv_speed R00000342 
06860002 add.) #scr_top,dé 3 Moves dé to screen memory (see text? RO000002C in_wait ROOO0032C 
0000 ROOOOGOOL ~repeat ROGOCODOL 
EFAF Isl.w 47,07 ; Multiplies d7 by 128 (down d7 lines) ROQQO0I6A clear ROCOOO1IG 
DEBS add.1 66,47 3} Calculates full on-screen address ROQOOOO2E warn RoGOODDNN 
2247 move.l d7,al i coldstart ROOG00000 = nemalt COOOOO00F 
02820000 and.1 #7,d2 Calculates the bit number bas_pos C00000005 score_pas COCOCOIED 
0007 score _poshi CO00C0032 ut_mtext CoooogGDe 
4E75 rts H ut_con C£OCGO00CS num_base C00000010 

nue_sp C00000035 ser_top 600020000 
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THE xe Series Editor: Robin Bradbeer 


Foreword by Nigel Searle, 


SINCLAIR ‘es Managing Director, Sinclair Research 


SERIES= 


at last the 
complete QL 


ew Machine Code Programming on the Sinclair QL = Order now! Just fill in the order form and return to us with your 
Martin Gandoff cheque or money order. Your books will be sent POST FREE in the UK, 
artin Gando within 28 days. 


wew Database Management on the Sinclair QL 


. 9 . | ge SS ee ee Se ae 
W Mike O'Reilly | ORDER To: Hutchinson Computer Publishing 
S\2 Using Graphics on the Sinclair QL FORM 17-21 Conway Street, London WIP 6JD 
r rshall 
Gar es | Please send me: 
ye Making the Most of the Sinclair QL | niin copies of Machine Code Programming on the 
QL SuperBasic and its applications Sinclair QL £7.95 each 09 160531 8 
Dick Meadows : | sennge copies of Database Management on the Sinclair QL £7.95 each 09 160551 2 
pegeus copies of Using Graphics on the Sinclair QL £7.95 each 09 160521 0 
ew Profiting from the Sinclair QL | sees copies of Making the most of the Sinclair QL £7.95each 09 160561 X 
financial aad other spreadsheet applications |“ copies of Profiting from the Sinclair QL £7.95 each 09 160541 5 
Barry Miles | — copies of Introducing the Sinclair QL £6.95 each 09 158941 X 
es oh I - e  e copies of Introduction to SuperBasic on the 
192 pages illustrated £7.95 paperback | Sinclair QL £6.95 each 09 158951 7 
ees copies of Advanced Programming with the 
fully up-to-date with Sinclair QL £6.95 each 09 158961 4 
Psion Systems version 2.00 software = — / .... copies of Word Processing with the Sinclair QL £6.95 each 09 158971 | 


| seme copies of Desk Top Computing with the Sinclair QL £6.95 each 09 158981 9 
previously published in the series 


Introducing the Sinclair QL | | enclose my cheque/money order made payable to TBS for 
Introduction to SuperBasic on the Sinclair QL | £ 
Advanced Programming with the Sinclair QL 
Word Processing with the Sinclair QL 

Desk Top Computing with the Sinclair QL 


Overseas orders — add £1 p&p per title. 


| My name and address is 


FWP 


192 pages illustrated £6.95 paperback | Signed THATTVOUUOUAUOCUEEOUUAELAU UAL 


SINCLAIR 


includes VAT, 
postage and packing 


Dmiiwiniminimimixniixiaiwiete) fascinating game and 
Please send me AREA RADAR CONTROLLER on i simulation. Control up to 69 
| 


microdrive cartridge for the QL 


aircraft in a busy air traffic 
zone which includes 2 airfields 
and 9 airways. Don’t run out of | 
fuel and avoid collisions. 


VERY ADDICTIVE — 
HIGHLY FRUSTRATING 
Please make cheque or postal order payable to a 


Shadow Soft and send to: QL PROGRAMME “ aa Want someone to maticet yen 
A game? — send it to us for assessment; you will not be 

Shadow Soft, 70 Gooseacre, Cheddington, Near ripped off. At worst it will be returned uncopied, at best 

Leighton Buzzard, Beds. 0296 668740 i you will be offered a contract at good royalty rates. 


et Re ee | 


Savvy The Lingo 

I would like to know if you have 
any more information about 
Fortran 77 for the QLasIam 
learning to program in that 
language at college and it 
would bea bonus if I could 
practice programming at 
home. 

Is it possible to order back 
issues of QL User, and if so can 
you tell me how many issues 
there have been, where Ican 
get the issues from and how 
much they will cost? 

How about doing an article 
about the use of electric 
typewriters with computers? 
S Garlick 
London E15 


The QL currently supports 
APL, BCPL, Pascal, 
FORTH and LISP. In the 
near future you can expect 
Cand PROLOG but, as far 
as we know, nobody is 
interested in getting 
FORTRAN 77 on the QL. 
Despite new releases 
FORTRAN along with 
COBOL would appear to be 
regarded as ‘old hat’. 

Next month we plan to | 
review two computer 
compatible typewriters 
from Brother: the EP 44and 
the TC 600. Finally, for 
back orders and | 
subscriptions contact Carl | 
Dunne 01-251 6222 ext 2429. | 

| 


Bug Or Blunder | 


The Abacus ‘Utilities’ program 
in the February ‘QL Horizons’ | 
article failed to work until “if | 
errnum() = 100: etc” was 
changed to “if edrrnum() <> 
100: etc”. Even now the ffind 
will not work. It isnot known 
where the QL went — it did not 
return unaided. Sc has been 
replaced by ‘display’, as this 
seems both simpler and 
adequate for my database. 
Since the messages ‘No such 
record, ete’ did not remain on 


This is the spot where we turn the magazine over to you, our readers. We welcome 


any comments, criticisms or anecdotes about either the QL or QL User. 


The address to send your letters is: 


Open Channel, QL User, Priory Court, 30-32 Farringdon Lane, EC1R 3AU. 


screen long enough to read, the 
prog has been modified to wait 
until action is taken to 
continue. 

Istill await the “up to the 
minute information” which 
lead me to return the 
registration card from your 
Aug/Sept issue. Although it is 
obviously slower than the 
Psion reply service, perhaps 
your system will come up with 
something useful — which 
Psion have so far failed to do. 

J A Patrick 
Shrops | 


The utilities program in 
question has been in 
constant use for the last 
three months. The only 
problem encountered arose 
when transferring across to 
Archive Version 2.00. The 
SC procedure appeared to 
fail. The remedy was either 
torun the SCRCON_BAS 
program supplied by Psion 
or to replace the call as you 
have done. The latter has 
the disadvantage that 
amendment routines are 
nowless user-friendly. 

As regards your query 
concerning QL User 
registration we are 
currently looking into 
developing a microdrive 
addendum to the magazine. 
Its all a little “hush hush” at 
the moment but provided 
we can overcome certain 
logistical problems (ie 
microdrives) this will be 
made available, either | 
exclusively or at a discount, | 
to those who have 
registered. | 


Fast Copy 

One facility missing from Quill 
is the ability to print multiple 
copies of a document. The 
solution is to do it from 
SuperBasic. Write and format 


| your document in the usual 


that itis correct. Then, with 
the correct printer driver still 
operative, print to the 
microdrive cartridge in mdv2_ 
with the command: 
<F3> Print, current, whole to 
mdv2_document... Now quit 
Quill. 

Ifyou examine the files on 


| 
way, and print a copy to check | 
| 
| 
| 


mdv2_ with DIR, you will find 
one called document_lis, and if 
you execute the command: 
COPY_N mdv2_document_ 
lis TO ser1c, your printer 
should print it out exactly as it 
would from Quill. By 
incorporating the command in 
a FOR NEXT or REPeat loop, 
you can have complete control 
of multiple printing with 
whatever facilities you want. I 
have been using a version AH 
QL and 1.03—ACB Quill. 


| GJ W Cunliffe 


Hersham, West Sussex 
ee 


| Sudden Reversal 


Having purchased the Psion 
Chess for my QLI was 
astounded by the graphics for 
the 3D representation of the 
chess board. What I would like 
to know is, can user definable 
graphics be controlled from a 
SuperBasic program, and if so 
how dol access them? I would 


because a friend of mine who 
has a Commodore 64 keeps on 
bragging how he can define his 
own graphics. 

A QL owner 

Leeds 


Your in luck! Whilst there 
are no built-in procedures 
in SuperBasic for designing 
and animating sprites, in 
‘The Progs’ this month we 
include a set of routines 
which will enable you todo 
exactly this. If you read the 
section carefully you'll see 
that each sprite may be 
moved by altering 


‘_parameters within a block. 


The simple Lunar Lander 
simulation shows what can 


‘be achieved. However, for 


those not prepared to 
experiment, the diagram 
below shows exactly what 
each parameter in the 16 
byte block does. It’sjusta 


be grateful ifyou could help me | few simple techniques. 


Q=routine off) 


status 


number of sprites. 0 to 255 


internal use only 


sprite on/off 255= on : O= off 


setting this to zero tells the 
routine not to erase the 
character as it is not on the 
screen. (characters are printed 
and erased by EORing for those 


in the know) 


x position. set to start value 
then peek only unless you set 


‘new’ to zero 


y position (see above) 

size of character in x 
direction in groups of four 
pixels (as used with the sprite 


definer) 
ysize 


size of character in y 


direction in pixels 


xspeed 


distance to move in x direction 


—128 to +127 (2’s complement) 


yspeed 


(see above 


distance to move in y direction 


action to take when a vertical 


edge is hit:— 
0 =stop 


—1= wrap round screen 


1_= bounce off 


action to take when a 
horizontal edge is hit:— 


0 =stop 


—1= wrap round screen 


1_= bounce off 


chars ~ 


number of frames of 


animation for this sprite 


current r 
being used 


current animation frame 


address of the data for each 
frame of animation (the data 
produced by the sprite definer) 
The data for each frame should 
be directly after the data for 


the frame before 
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Out Of Line 


Asasimple minded 
mechanical engineer plagued 
by the unreliability of the 
microdrives on my QL I decided 
to havea look at their 
mechanical aspects. My 
problem was that the two 
drives declined to read each 
others’ writing. Moreover 
microdrive 2 was not 
interested in the bundled Psion 
programs. On peering into the 
black holes at the front of the 
machine I discovered 
something interesting. 
Through all the black dust 
scraped off the side of the 
cartridges I could see that the 
tape heads were.at different 
angles. Daring to remove the 
cover I found that the head 
alignment was controlled by 
moving the circuit board to 
which the head was soldered, 
relative to the bottom plate of 
the microdrive, the two being 
held together by a solitary 
self-tapper which screwed not 
even into a hole but a slot. 
Furthermore, the cartridge is 
held down in position by ribs on 
the underside of the 
computer’s top cover, which 
means that the case must be 
produced to very tight 
tolerances. 

As [had no wish to 
invalidate my guarantee I did 
not interfere further but on 
reassembling the machine I 
discovered that as I tightened 


the screws nearest microdrive 
2some distortion took place. 
Leaving these screws undone 
meant that the cartridge was 
not forced out of true when 
inserted and the two 
microdrives now converse 
freely. Simple, eh? 

FJ Lucy 

Maldon, Essex 


Canon Code 

While connecting a Canon PW- 
1080A printer to my QL, I 
came across a couple of points 
which may interest other 


readers. 


Iset the printer’s 
dipswitches for the US 
character set, as I wanted the 
“#” sion to appear in program 
listings. 

When printing from Abacus 
or Quill, however, I wanted to 
use the English character set 
with its “£” sign. I tried setting 
the preamble code in the 
printer driver to 
<ESCb,@,<ESC>,R,3 (asin 
the QL manual), but the 
printer obstinately: stayed in 
US mode. Eventually, I 
realised that the preamble code 
should be as follows: 


PREAMBLE CODE: 
<ESC>,@,<ESC>,R,<ETX> 
(Type esc,“@,esc,”R,3) 


Although this made the “£” 
sign print, I was still annoyed 
that I couldn’t use both “£” and 
the “#” with the word 
processor. 

As a last resort I tried 
reading the printer manual, 
and lo! I found that it is possible 
to extend the printer’s 
character set by using ASCII 
codes normally reserved as 
control codes. 

Thus, code 6 becomes “£”, 
while 23 remains as “#”. To set 
this up, leave the printer 
switched for the U.S. set, and 
amend the printer driver as 
follows: 


PREAMBLE CODE: 
<ESC>,@,<ESC>,I1 
(Type esc,“@,esc,“I,”1) 


TRANSLATE1: £,<ACK> 
(Type “£,6) 


John Ennals 
London 


Jury Rig 


Iacquired a Brother HR-5 
printer to use with my QL. Full 
of great expectations, I linked 


printer end of the lead. I once 
more got no response. Several 
times more I did this, but each 
time the printer did nothing. My 
parents were by now getting 


the two, using the RS 232 C lead] rather disconcerted, and my 
that I received free with my QL. | printer and QL were taken toa 
When I tried to print something,| company in nearby Loughton 
nothing happened. Undaunted, | who, after three days succeeded. 
I tried using different parities, Thope these findings will be of 
handshaking, and datatypes. | aid to others. 

Still nothing. So I tried Allister Chambers 

reconnecting the leads in the Epping, Essex. 


PIN (QL) WIRE COLOUR TITLE PIN (PRT) 
BLACK GROUND 7 
WHITE TxD 3 
GREEN RxD 2 
BLUE DTR 20 
RED OTS leave loose 
ORANGE DSR leave loose 
Also connect pins 4 & 6, and 8 & 20. 
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NEXT 
MONTH 


The final, definitive comparison of the QL 
against its nearest rivals—the Amstrad and 
BBC B—by an independent reviewer and 
industry notary. 


Business Software 


Selected professional software from the likes of 
Sagesoft and Accounting Software reviewed for 
ae business appeal. 


a Toolkit 


Over 50extraSuperBasiccommandsinone __ 
package, providing direct access to command | vel 
QDOS oe extending its capab: ities. 


Articulating with Ar h 


A special occas as to concepts. 


‘MAY’SS5 EDITION. 
ON SALE: 21st APRIL 


Speed Your Data Access Dot Matrix Printers 


witha disc drive from Replacing your Microdrive 
with Disc Drives means 
instant reliable access KP810.......... £301 
every time. You need to Canon PW1080A 
purchase the disc interface , 

andadrivewhichincludes | B@ \WaeXN 4 0-7-3537’ CCC 
everything required to : Epson RX80/FT 
Pluginanduse. = 9 BR WSCC lhhnuuvttttsttstees 


= COMPUIER Bem. 

PERIPHERALS "ons wrs 
the best service mas 
meee thebestvalue 


1451DQ3..... £275 C 


Monitor Stand | from Juki6100 £385 


° Quen Data £255 
: CN QL Serial Centronic 
VF Printer Cable £35 


ALL PRICES INC. VAT 


Taxan Kaga 


SHOWROOM OPEN 
Weekdays 9.30 - 6pm ee 
Saturdays 9.30 - 4pm ———— ie 
Money-Back Guarantee 
Ifnot entirely satisfied with your VIGLEN== BOSTON 
purchase, simply return to us MANOR 
within 7 days in perfect condition 
and in original packing 
including a note stating reason(s) 
for return. 
Please add for carriage:- 
A - £2. B - £3. C - £8. D-£12. “ 
meee eee Ee Ee Ee ee ee ee 
Post to: Viglen Computer Supplies. 
| Unit 7, Trumpers Way, Hanwell W7 2QA. 
Telephone: 01-843 9903. 


Our Super | 
Low price £14.95 


3M Scotch Disc 5%” diskettes double density 


(Lifetime guarantee) 


1-2boxes 3-9boxes 10+ boxes 
SS40TRACK £15.00 £13.50 £13.00 
DS40 TRACK £20.00 £18.40 £17.70 
SS80TRACK £23.00 £20.70 £20.00 
DS80TRACK £26.70 £24.00 £23.00 


10 DISCS 
PER BOX 


l 


@ 80 column dot matrix 
printers 


@ Raises printer high Please send me 
enough to put continuous 
stationery underneath * ¥ 
@ Beautifully finished Ienclose Cheque/PO. for £ incl. carriage. 
in clear perspex | Cheques payable to Viglen Computer Supplies. 
@ Viglen quality everytime 
@ Will accept paper up to | Name 
12%” wide 
@ Non-slip rubber pads I Address 


Dimensions: 
15” (380mm) wide 

122" (320mm) deep 
4” (90mm) high 


ORDERS 


I prefer to pay by ACCESS/BARCLAYCARD 


; are usually (Delete whichever is not applicable) fansea cae 
Viglen are also major suppliers despatched Address must be the i 
to educational and government same as card holder. 


Card No. 


Signature cise os : 


i iain cool sees Sealine ee <a et tel 


within 24 hours 


establishments and welcome 
further enquiries. 
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Ralph Vernon dips into the 
latest crop of disk and memory 
systems and finds it’s not 
all fruitful. 


Basingstoke based, Microperipherals 
| have made their reputation as major 
distributors of printers with access to 
a sizeable dealer network. The QL 
disk system marks their debut as an 
i | independent peripheral manufactur- 
er. The system consists of a disk 
interface module and two 3.5” disk 
drives. 

Similar in appearance to CST’s 
interface (reviewed in the March 
issue) the module consists of a small 
PCB, with 8K ROM on-board, that 
slots neatly into the QL’s main I/O 
port adding some three inches to the 
machine’s length. 


The MicroPeripherals disk 
system in situ (right) and 
minus the QL (below). Note the 
use of 31/2” drives making the 
set-up very compact. 


PHOTOS BY TERRY BEDDIS 
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Conforming with the Sinclair stan- 
dard, the unit formats 9 bytes per 
sector with 512 sectors per track and 
the option of 40 or 80 tracks per disk, 
single or double sided. Jumpers are 
used to set the options and are easily 
accessible on the PCB itself. 


In-House Technology 


The disk driver was written in-house 
and owes more to close collaboration 
with Sinclair Research rather than 
with QDOS’s author Tony Tebby. 
Nevertheless, a number of extra 
commands relating to file I/O and job 
control from the latter’s QL Toolkit 
will be included in ROM. 
Additionally, Microperipherals 
have developed a number of utilities 


themselves, including a microdrive 
emulator. Here, the commands FSET 
and MSET determine which device 
name the disk driver will answer to, 
‘fdk’ or ‘mdv’ respectively. With 
FSET, disks operate in the normal 
fashion. Namely, as separate devices 


THE 


working alongside microdrives. With 
the MSET, QDOS treats floppies as if 
they are microdrives and ignores the 
latter altogether. The advantage of 
this is that all programs that run on 
microdrive (Psion’s packages in- 
cluded) will run on disk without the 


need for special conversion or con- 
figuration programs. Incidentally, 
this also saves the 1.5K of user RAM 
that an additional driver would 
otherwise occupy. Finally, it is possi- 
ble to have the QL boot up from a 
‘mdv’ named disk by setting ajumper 
on the interface’s PCB. 


Other EPROM based extensions in- 
clude extra error messages such as 
timeout, seek or CRC errors and 
‘record not found’. On top of these, 
there is a simple disk editor which 
will permit tracks and sectors to be 
examined and corrupted files to be 
patched up. Also under consideration 
is a machine code monitor which 
whilst not a full dissassembler will 
permit users to manipulate memory 
and search for strings and bytes. 

Microperipherals provide 3.5” 
Japanese-made drives, specifically 
designed to go with the QL. Whilst 
the drives may be purchased singly 
they are designed to operate in pairs 
which accounts for the price differ- 


HORIZON II 


ence. The first and more expensive 
drive houses a power supply unit and 
disk controller, for both itself and a 
second drive. 

As an indication of their committ- 
ment to this technology, Mic- 
roperipherals will be launching a 3.5” 
Winchester in May which will permit 
up to four of these drives to be 
plugged in and provide a passable 
alternative to the horrendously ex- 
pensive tape streamers. This also 
means that when the Winchester 
appears, business users that have 
purchased the floppies will not be left 
out in the cold. 

The 3.5” floppies are in many 
respects a distinct improvement upon 
their 5.25” cousins. Offering the same 
capacities (80 track — 720K format- 
ted), the disks are almost pocket- 
sized and, enclosed in a rigid plastic 
cover, are well protected from the 
elements. Write-protection simply in- 
volves sliding a small panel back- 
wards, as opposed to fooling around 
with a piece of sticky tape. The 
spindle about which the disk rotates 
does not physically clamp onto the 
floppy but slots in a steel centrepiece, 
thus minimising contact with the 
media to the read/write heads alone. 
In addition, the drives incorporate a 
warning light that flashes when the 
disks are worn so that they may be 
backed-up before it is too late. 

In appearance the drive units are 
less than half the size of the 5.25” 
drives, housed in black metal casings 
and conveniently stacked one on top 
of the other. Seen alongside the QL, 
they seem less incongruous than the 
larger version and being lighter, can 
be more easily transported. The 
drives will be sold with a utilities disk 
which will contain Sinclair’s official 
full screen editor and assorted com- 
mands from Tebby’s QL toolkit. 

Finally, for the more technically 
minded, access times on the disks are 
3 milliseconds and flux density is 135 
TDI. Also, to counter the smaller 
disks susceptibility to radio and low 
frequency interference, the heads are 
copper shielded. The drives are fully 
compatible with other QL disk inter- 
faces that are currently available (ie 
CST). 

Judging by the amount of thought 
that has gone into the design of their 
disk system, there is little doubt that 
Microperipherals not only consider 
the QL add-on market extremely 


lucrative, but also the user base 


extraordinarily discerning! Attrac- 
tively packaged, the system provides 
a well-rounded set of utilities both in 
EPROM and on disk which enhance 
the QL’s overall performance, as well 
as ensure a trouble-free transition 
from microdrive to disk. Competitive- 
ly priced, this product will take some 
beating. 


Prices (ine VAT): 


Disk Interface £113.85 
3.5" 720K Drive £194.35 
2nd Drive: £171.35 


Supplier: Microperipherals Ltd, In- 
tec Unit 3, Hassocks Wood, Wade 
Road, Hants RG24 ONE (0256| | 
473232) 
| Further RAMifications || 
The case for additional RAM for the |__| 
QL is nowhere near as clearly defined | _ 
as that for disk drives especially | 
when, in the absence of any expan- | _ 
sion board, one excludes the other. |. 

With 128K RAM of which 90K is | 
available for the user, the QL already | 
has more built-in memory than any |_| 
other similarly priced micro. Furth- | | 
ermore, all the professional software | __ 
currently available for the QL is] | 
geared to run in this environment. |__| 
However, in some cases extra mem- |___ 
ory will enhance the software and itis | 
this that provides the only possible | _ 
justification for RAM extensions. i 

For example, adding say, 256K to |_| 
the QL will result in the following 
increases in the working memory 
used by Psion’s packages: 


Archive 12K 129K 
Abacus 15K 94K 
Easel 8K 125K 


In the case of Abacus and Easel, the 
total number of cells which may be 
used increases from approximately 
1000 to more than 6000 permitting 
considerably more complex analyses 
to be undertaken. 

With Archive, the extra memory 
permits much larger files to be stored 
In memory so that searches and 
updates can be carried out in seconds, 
as opposed to tens of seconds. 

In all cases, including Quill the 
extra memory means that the prog- 
rams themselves are loaded in their 
entirety so that commands are ex- | 
ecuted instantaneously, not loaded in | 
on microdrive and overlaid. Also | 
QDOS itself gets in on the act by | 
grabbing more buffer space which 
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brings about an general improve- 
ment in microdrive performance. 
Though the advantages of RAM 
extensions are real it should be borne 
in mind there is no guarantee that 
other commercial programs will be 
written to take advantage of them in 
the way Psion does. This is especially 
true now that disk drives are avail- 
able as an alternative means of 
enhancing the QL’s performance. 


Simplex’s RAM expansion board slots 
into the QL’s main I/O port. When 
installed, the board (97mm X 77mm) 
juts out a centimetre or so, making it 
impossible to replace the port’s plas- 
tic cover. This means that whilst the 
PCB is out of sight, sitting flush with 
the keyboard’s leading edge, it re- 
mains exposed. The reason for this, 
we understand, has more to do with 
allowing sufficient air to circulate to 
prevent overheating. However, Sim- 
plex have now opted for a fully 
enclosed ventilated black plastic box 
that is almost standard with other 
add-on manufacturers. 
Powered off the QL, the PCB 
incorporates a sophisticated RAM 
controller and one bank of 8 256K by 
1 bit chips (TMS 4256’s). A further 
bank may be added at a cost of £198 
to give a total of 512K RAM. The 
256K dynamic RAM chips are the 
|latest and account for the unit’s 
|remarkably compact size and low 

power consumption. Unlike conven- 
| tional static RAM they can operate in 
|two states: “refresh”, which uses 


“ 


| the 3400 milliwatt limit on the QL. In 
fact, this unit’s consumption is just 
3100 milliwatts. 
For review purposes, we opted to 
| test the 512K board, as out of the two 
this would be the more susceptible to 
spikes. Once installed the unit work- 
ed without hitch, even when the QL 
was left on overnight. The only visi- 
ble evidence of its presence outside 
Psion’s packages was a slight delay 
before the TV or Monitor selection 
display came up. Our only reserva- 
tion was however, that without a 
heat sink the unit did get quite hot 
though this did not interfere with its 
performance. 

Overall, the SDL RAM expansion 
board lives up to the promises made 
by its manufacturer, being compact 
and easy to use. Despite minor de- 
fects in its design which we hope will 
soon be rectified, it represents value 
for money and should be an attrac- 
tive proposition for those looking to 
get more out of Abacus, Archive and 


The 512K RAM extension from Simplex Data. 


Easel. Finally, should some enter- 
prising programmer decide to write a 
RAM disk driver for this unit, this 
would not go amiss. 


Prices (inc VAT): 
256K RAM £198 512K £396 


Supplier: Simplex Data Systems, 
432 Greenford Road, Greenford, 
Middx. (01 575 7531) 


"Paper Heavyweight _ 


Quest’s memory expansion board 
(247mm XxX 97mm) is quite a large 
affair, reminiscent of the kind that 
used to be hidden away inside the last 
generation of desk-top computers. It 
comes in a black plastic casing and 
plugs into the QL’s main I/O port. 

To their credit, Quest give the user 
a wider choice than most producing 
64K, 128K, 256K and 512K units. 
These use relatively conventional 64 
by 1 DRAMs (TMS 4164s) in varying 
numbers from 4 to 32. This does not 
affect performance but the higher 
power consumption has meant more 
support chips all round, and an extra 
power supply unit for the 512K unit. 
The extra PSU, we. understand, 
should be phased out shortly. This 
being the case, it will be interesting to 
see how far below the QL power limit 
the unit falls. 

Where Quest would appear to have 
an edge is in the fact that their units 
may double up as RAM disks. Each 
unit comes supplied with a microd- 
rive cartridge, containing a short 2K 


machine code addendum to QDOS 
which allows you to use extra RAM as 
though it were a number of microd- 
rives. Ideally, this means that you 
can enjoy the benefits of near instan- 
taneous access for all filing opera- 
tions. 

However, whilst attractive on pap- 
er, in practice the benefits of RAM 
disks are nowhere near as pro- 
nounced. The need to transfer every- 
thing to microdrive at the end of a 
session and then load it in at the 
beginning means that any real sav- 
ings arise only when the QL is used 
for a prolonged period of time. Furth- 
ermore, as Quest’s driver comes on a 
cartridge instead of an EPROM, as 
one would expect, it also needs to be 
loaded everytime the facility is to be 
used. 

The first to commit themselves to 
the QL, Quest have been unable to 
take advantage of improvements in 
DRAM technology. Whilst this has 
not affected performance it has 
meant compromises in both design 
and cost. 

The inclusion of RAM disk soft- 
ware though welcome fails to offset 
this. However, as with a lot of Quest 
hardware — the final version may be 
different. 


Prices (ine VAT): 
64K £115 256K £349 
128K £185 512K £579 


Supplier: Quest International Com- 
puters, School Lane, Chandlers Ford, 
Hants. (04215 66488) 
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C lomputamate Q-disk offers many new commands 
for rapid file handling and has been widely 
acclaimed in reviews. 
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Has the QL’s business potential 
been underestimated? John Lang 
thinks so, and his prosperous 
insurance consultancy testifies to 
that fact. Here’s a QL business 
success story... 


Any computer in the business en- 
vironment, no matter what its cost, is 
completely useless without relevant 
software. In the harsh world of micro- 
computer sales this elementary fact 
appears to have been forgotten by 
many firms trying to sell to the small 
business. The average businessman 
is simply not interested in ROMs, 
RAMs, Kbytes etc. All he wants to 
know is whether the machinery and 


| software will run the various repeti- 


tive and time consuming aspects of 
his business, and at. the same time 
increase efficiency and effectiveness. 

So, why purchase a QL for business 
amid all the adverse publicity (some 
justifiable and some very definitely 
not)? Quite simply — for the software 
potential. As a small firm of insur- 
ance consultants, we had been look- 
ing for a superior software package to 
computerise all our motor insurance 
quotations — a very time consuming 
affair. Dataller Computer Services of 
Wigan approached us with a program 
into which we could feed all the 
required parameters for a motor 
quotation and a few seconds later the 
QL would produce a list of insurers 
and premiums in ascending order. 
This was just what we were looking 
for. To my knowledge this is the only 
system which comes with four busi- 
ness software programs included in 
the price of the computer. Provided 
these worked, we would be in a 
postition to dip our toes in the water 
of computerisation without spending 
thousands of pounds. 


The novelty soon wore off 
... the job of entering clients’ 
records is soul-destroying! 


The system, consisting of QL, 
Zenith monochrome monitor, motor 
quotation software and Psion soft- 
ware was delivered in August. The 
computer is in operation nine hours a 
day, five days a week and the insur- 
ance system works perfectly. Outside 
working hours the chance to test 
Psion’s software could be utilised. 
First impressions were that Archive 
would be of immediate use in compil- 
ing data concerning clients and their 
policy details. The ease with which 
files could be created was impressive. 
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However, planning the file on paper 
first is important as there does not 
appear to be a way of adding fields to a 
file or removing them once they have 
been created and contain records. If 
there is a way, it is not made clear in 
the manual. This initial ‘creation’ 
took a few hours, sorting out which 
fields were essential, discarding 
those useful but not absolutely neces- 
sary and deciding how to enter the 
records so they could be retrieved 
later. This planning was essential for 
the data file to be of the most use. On 
at least three occasions 20 records 
were entered and then scrapped be- 
cause the fields had not been thought 
out carefully enough for retrieval 
purposes. This may seem elementary 


to the programmer but to the novice, 
trial and error is the only way. For 
example, if you enter all names in the 
form — Bloggs, J — and then enter a 
name omitting the comma you will 
never find Smith, P unless you can 
remember that on that record you 
omitted the comma and should be 
looking for Smith P. 

Once the files were created satis- 
factorily, the job of entering all the 
clients’ records began. The novelty 
soon wore off and it became apparent 
why so many businesses with a client 
or customer base computerise their 
records over periods which can be as 
long as a year. The job is mind- 
blowingly boring! As the record base 
grew, Archive’s power showed with 


ey) 


ILLUSTRATION BY SUE WOOLNOUGH 


the ease that records and fields could 
be sorted and located. Initial fears of 
the microdrives subsided and the 
carping criticism of these inexpensive 
storage devices seemed petty. 
However, the records did get lost once 
due to not ‘closing’ the file before 
removing the cartridge. It is quite 
true that you only lose your records 


As the database grew we 
wanted to use it for more than 
just a card index system. 


once — a back-up copy from then on 
was a must. At this stage Archive’s 
back-up was unreliable so Super- 
Basic was used for back-up copies, ie 
delete mdv1_file_dbf and then 
copy mdv?2_file_dbf to mdv1_file_ 

One of the most tedious jobs orga- 
nisations have is knowing whose 
payments, renewals, subscriptions 
etc are due at any one time. As the 
database grew, we wanted to use it 
for more than just a card index 
system, ie a program to list all our 
renewals as they became due each 
month. At this point the manual 
proved a let down. To the uninitiated, 
the chapter on programming is in 
places unclear and muddled. But if 
we could successfully write this proc- 
edure it would save a great deal of 
time. By juggling about with various 
lists from the manual the required 
list was produced. Unfortunately it 
simply kept on scrolling off the screen 
until only the last twelve names were 
left. At that time we had no printer 
and it was essential to stop the 
program when the screen was full in 
order to write down the data and then 
continue until eventually the list was 
exhausted. This is where the prog- 
rammer comes into his own. It took a 
week trying out different statements 
in different orders before we achieved 
success. The following program does 
work and anyone with an organisa- 
tion that needs this sort of informa- 
tion will find it useful. The fields can 
be altered to suit each particular 
application. The ‘Iprint’ statement 
has been added since we installed a 
printer. The benefits of Archive were 
now beginning to show in terms of 
increasing efficiency. The microdrive 
cartridges do have their limitations, 
however, as finding a particular re- 
cord now takes between two and three 
minutes. There are approximately 
500 records on each cartridge. The 
time spent writing this program for 
Archive could not be justified if the 
QL is to be a business computer. An 
idea would be for Psion to produce 


listings of the most common require- 
ments so they can simply be typed in. 
Businessmen are not interested in 
how it works — simply that it does! 

Abacus was the next to be tried. 
Primarily due to lack of knowledge of 
what a spreadsheet actually was it 
appeared to be a lot of trouble to 
design what was needed and make 
the necessary entries. By persever- 
ing with the manual, various formu- 
lae were entered into an exact copy of 
my cash receipts and payments book. 
Possibly not the most efficient way, 
but it seemed easier to transfer 
something which was already famil- 
iar. The beauty of this particular 
spreadsheet soon became apparent. 
It was no longer necessary to retotal 
all figures whenever entries were 
altered. The totals and analysis cross- 
checks were immediately recalcu- 
lated and the time saved was enor- 
mous. 

The ease of this success enthused 
me to enter formulae for a bank 
balance and reconciliation. Figures 
could be transferred automatically 
from the cashbook part of the spread- 
sheet into the bank account and 
balanced in a fraction of the time 
taken by hand. Our turnover is in 
excess of £100,000 per annum involv- 
ing many bankings and cheques. The 
spreadsheet now enables us to ba- 
lance all the company’s books quite 
easily and quickly every month in- 
stead of every two or three months. 
And as a result, a more accurate 
check can be kept on expenditure and 
cash flow. 

It became obvious that sooner or 
later we would need a printer. Inves- 
tigation of the market revealed that 
many printers are sold as basic 
machines and in order for them to 
work in a business environment 
satisfactorily, the purchase of ‘add- 
ons’ is necessary. This appeared to be 
rather messy. We approached the 
suppliers of our electronic memory 
typewriter who suggested the Facit 
4510 dot matrix printer which is 
quite widely used in business and 
needs no ‘add-ons’. It is fitted with 
both centronics parallel and RS232 
interface connections, at the rear and 
also has a 2K buffer. The tractor feed 
attachment supplied with the 
machine simply clips on top of the 
paper feed assembly. The Sinclair 
lead has to have one wire in the 25 
way connector altered and then the 
printer operates. All controls are 
outside and accessible to the oper- 
ator. Two DIP switches are situated 
to the rear enabling connection to 
different computers quite easily. A 
mode switch to set 10, 12, 17 cpi, high 


USINESS! 


resolution, pin or block graphics, an 
on/off line switch and top of form/ 
override switch are all fitted on top. 
The print was crisp and clear even at 
17 cpi. The speed at 10 cpi is 120 
characters/second. Setting up the 
print drivers on Psion software was 
no problem apart from Easel which 
appears to need a special driver for all 
but the Epson RX80. This sturdily 
built little printer retails around the 
£400 mark. 

From this point Quill could be used 
as well as printing hard copy from our 
Archive and Abacus files. Playing 
with the software prior to installing 
the printer gave the impression of a 
sophisticated word processing prog- 
ram which would be extremely use- 
ful. But in practise this did not prove 
to be the case. The program did some 
very odd things with the edit facilities 
and the printout was not consistent. 
The program also crashed with 
monotonous regularity, a feature we 
had not come across with Archive 
and Abacus. This version was clearly 
not of the same standard as the other 
two and could not be considered 
reliable enough for business purposes 
in its present state. Though the ideas 
in the program are excellent no 
business however small, can afford to 
lose documents. 


Early versions crashed with 
monotonous regularity, a 
feature we had not yet met. 


Easel has not yet been tried but it 
could be useful in monitoring various 
financial markets for our clients. 
With the exception of Quill we have 
had little trouble with the software 
packages and none at all with the 
hardware. Quill is back with Sinclair 
as we considered it unfinished. The 
QL and its related software have 
enabled us to enter the world of 
computerisation at little cost. It’s a 
powerful machine and the software is 
not a toy; and by using it we are now 
more efficient. However, a computer 
costing £400, including software can- 
not be expected to do everything and 
hopefully software houses will pro- 
duce other business programs. By 
purchasing our equipment through a 
specialist software house we have 
had the day to day back-up we need. 
After six months in operation we are 
still happy. Small businesses con- 
sidering computers but worried ab- 
out the cost should think about the 
QL seriously because it’s not going to 
break the bank if it’s not right, and 
may open up future possibilities of 
using computers in your business. 
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finally displayed by UT. MTEXT. 


now. 


,ascreen 


when the program is linked. Next we 
iT_SCR, 


using 


‘in ae the | ‘libhdr’, using the GET directive 
STMT SOURCE STATEMENT - i ae 
{ * Executable clock Mga the BL | 37 MOVE.L DL, -(A7) 
i ered for B programs) 35 
: "alent 39 LEA.L ‘50 (A4) Al 
4 * Copyright (C) 1984 Adam Denning 40 MOVE.W -CN_DATE,A2 
5 4} JSR (A2) 
6 SIIE 150 4 
7 43 ADDA.L Ab, AL 
8 UT_SCR QU $08 44 MOVE.W  -UT_MTEXT,A2 
9s.POS = EQU $10 ‘5 ISR (A) 
‘ $13 4h 
‘ BiCDRTE el seC 47 havea #10_SBYTE,D0 
12 UT_MTEXT QU $00 43 MOVED i 
13 10. SBYTE EQU $5 49 MOVER #-1,D3 
(4 CN DAY EU SEE 50 TRAP 3 
15 " 51 
16 BRA.S —-C_START 52 MOVE.L (AT) +, D1 
\7 DC.L 0 aes LEA.L  SO(A4) Al 
18 DCW S4AFB 54 MOVE.W  CN_DAY,A2 
19 pC.W 7 Ae . JSR (A2) 
® CLOEK’ 
3 sir Pee 57 ADDA.L Ab, A 
22 C START NOVE.W  UT_SCR,A2 58 MOVE.W UT_MTEXT,A2 
xs LEA.L -PBLOCK, Al és JSR (A2) 
s i Ne bi BRA.S -RE_ENTRY 
#SD_P0S,D0 42 
i ae iis 10,01 b3 PBLOCK DCW «$704 
28 woven «#0, 2 64 DC.W $1207 
29 MOVED «1,03 65 DC.W 150 
30 TRAP #3 bb DC.W 12 
31 67 DC.W 12 
37 MOVE.L AO ,-(A7) : DC.W 0 
b 
il MOVE? © #MT_RCLCK, DO 70 END 
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screen’s cursor is homed, the date and 
— | time are fetched, converted to strings | 
by CN_DATE and CN_DAY, and 


So much for our clock, now we can 
move on to the terminal emulator 
proper. Written in BCPL, the prog- 
ram is quite lengthy as it provides an 
enormous number of facilities. Only 
part of it is reproduced in this issue, 
and only that part will be = 


Running Commentary 


The first few lines — everything 
between ‘/* and “*/’ — are ‘comment’ 
lines similar to REM statements in 
BASIC. These contain amongst 
others things, a reminder of which 
additional modules will be required 


include the BCPL standard header 


this, comes a declarat: 
manifest constants u 
ram. A manifest constan 
value to a particular name. 
ter that name may be used in pl 
the value throughout the 
This improves readability and : 
a useful memory aid. For exa 
we know that each cursor key 
turns a particular value but, as 
don’t really want to remember wh: 
these values are, we give them nam 
here. 

The next section contains the 
al declarations used within the p1 
ram. Each identifier precedi 
colon in this list is allocated a space 
the global vector, BCPL’s commo 
area of store. By giving each _ 
number it is particularly easy | 
reference them. These identifiers 

may be variable names, procedure 
addresses or whatever we choose. | 
The manifest constant ug is declared 

in libhdr, and equates to the number | 
of the first global which we may use | 
in our programs. We've altered 

libhdr to incorporate our machine 
code routines, and part of that altera- 
tion involved changing the value of 
ug. 

The real program begins, as do all 
BCPL programs, at the declaration of | 
the START procedure. This does 
little aside from set the scene and call 
subsidiary procedures in a logical and 
coherent order. 

Its first action is to close the default 
input channel, using the EN- |. 
DREADO procedure. As this is a 
CONsole device, closing it shuts 
down both screen and keyboard. | 
After this a few global variables are 
set to their initial values and anew 


OUT, which are global vs 
declared in libhdr and used as 


Once opened, the chan 
SELECTed, the scree 
ours set, author an: 
printed. Thereafter 


Co Computer Crosstalk 


When computers comm 
have to decide upon 


_ [a 
LISTING 2 EMULATOR 


the BL 


A terminal program +or 
84 Adam Denning 


By Adag Denning (C) 19 


Added default setup file 


Added second options menu (Fa) and 
b control routines 


This version with special jo 
And pipes added 


Adapted for floppy discs 
Command escapes added 
Wade into 2o-line scre 
Automatic floppy/micro 


NEEDS: flpi_met lib 
flpi_me2_lib 


fipt_mcs_lib 
fipt_ncd_lib 
flpi_jobinto 


*/ 


GET “#lp2_libhdr" 


NWANIFEST $4 
no.buffer = 9 
open.dir = 4 
dirsheader. Length = 

left = 192 
right = 200 
up = 208 
down = 216 
1 = 282 
#2 = 236 
£3 = 240 


~ 
Pd 


TRL-S pause 


en and tidied up 
drive select added 


rectory open buffer 
ectory’ key for OPEN 
ory entry 


17 Length of di 

f/ ‘open as dir 

64 // Vength of each direct 
#7 ASCIT values of cursor keys 


J] ASCIT values of function keys 


1} effect of SHIFT on function keys 
s/ ASCII control codes 


Ctrls = 49 
xoff = ctr] 
Ctrlz = 2% z 
esc = 27 
home = 30 


BLOBAL gy 
S@rialrug 
Status:ug+y 
local sug+2 
baudratesug+3 
Command: ug+4 
Portzug+5 
Onl ineruges 
Cr fsug+7 
logoffsug+g 

Jobnuazug+9 
Jobinforug+yg 
Jinfolsuges 4 
Jinfo2rugs2 
PUtpiperug+y3 
keypiperuge14 

‘ Serpiperuges§ 

LET START() pe 

$( ENDREAD () 
tls '= FALSE 
®YPIPG,Serpipe s= FALSE, FALSE 

5 


SYSIN := F 
= FINDINPUT (« 
svsour r= a Iv CON_488%23281 2417 19g 

128") 


SELECTINPY 
T(S¥sT 
SELECTOUTPUT (S¥gquT) 


SCREEN 

EE cen ade 
SENcren ts 
SEEN acre sien 
WRITES (+B, Ha fia os 


setup() 


Serial = FIN 
g D 
i ar 


WRITEF (*4N 
*NC 
STOP (serial) annot open 48", port 
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| 

| 

getclock() 

do. terminal () 
CLOSE (serial) 
CLOSE (status) 


SCREEN (screen. nocursor) 
ENDREAD() § ENDWRITE() 
AND. setup() BE 
$( LET option,usedefs = 7 FALSE 
LET defile = "tl pt _defaults" 
port := "sernphz" 
chk, devidetile) 
SCREEN (screen.cursor) 
WRITES("#NENDO you want to use pre 
IF capsin() = 
TEST tempin < 0 THEN 
$( LET filename = VEC 10 
WRITES ("#NCannot find file - ") 
get string(filenane,42, "Type in the filename") 


TEST filenameZ0 = 0 THEN 
tempin = 0 


$) 
OR ${ tempin += FINDINPUT (filename) 


usedefs += TRUE 
$) 
| OR WRITEQDOSERR(tempin ,SYSOUT) 
$) 
) REPEATUNTIL tempin >= 0 
OR ${ SELECTINPUT (tempin) 

WRITES ("#NUSing defaults#N”) 

usedefs += TRUE 
5) 
WRITES ("#N#NSelects #N------~ +N") 
WRITES ("Serial ports (1 or 2°) 
SCREEN (screen. cursor) 
option := capsin() REPEATUNTIL option = 
WRCH (option) 
porti4 s= option 
portio := 4 


UNLESS option = ‘N’ DO port%0,porths += 5, option 


WRCH (option) 


WRITES ("HNRTS/CTS Handshaking: (Yes No) ") 


option += capsin() REPEATUNTIL option = 
WRCH (option) 

option z= option = ay ay ae 
port := porthd + 1 
portZ(porthd) 2° option 
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TEST tempin > 0 THEN ${ SELECTINPUT (tempin) 
WRITER ("#NUSing 4S#N" filename) 


'{' 4 option = 12’ 


WRITES("#NParity: (Wark Space Odd Even None) “) 

pption := capsin() REPEATUNTIL option = ‘MN’ \ option = ‘5’ 
option = ‘O° } option = ‘E 
option = ‘'N’ 


viously set defaults? ") 
'y" THEN $( LET tempin = FINDINPUT (defile) 


$( WRITES ("#NUSing keyboard#N") 


= ‘¥' | option = ‘N’ 


! 
BAUD (baudrate) 


asic version of the termi 


“WRITES("#NData 

: protocols (R 

opt = . aw 7:(C ip 

ption := capsin() REPEATUNTIL foo : 
i | opti Pe 

feb t= port70 + 1 option = ‘C’ ption 4 

portd(port%0) := opti 

WRCH (option) ption 


WRITES ("*NBaud r 
ate: (1275 2= 
pe =300 3s = 
bb : ROCH() REPEATUNTIL ‘17 eat k 
OR : 1on = ‘1’ THEN baudrate := 3 scm 
audrate := 75 ¢¢ {option - ‘0') 


st td 
comand ce OUUTPUT (* BCR, 338x12a162x0") 
: DINPUT("CON_488x12a12x244 50") 


local := usede¢ 
Sta 5 -> RDCH() = ‘9° 
onl ts Wee 
og usedefs -> RDCH() = “y" gee 
| ' usedefs -) RDCH() 2 ‘o" 0 E , TRUE , FALSE 
ogoff := usedets -) RDCH() ctrl2 


IF usedefs THEN $( ENDREAD{) 


i SELECTINPUT (SYSIN) 
set.status() 
set. conm() 
$) 


AND capsin() = CAPITALCHIRDCH()) 


AND chk. dev(tilename) BE 
$( LET stream = ? 


stream := OPEN (filename, 1 ,no. buffer) 


TEST stream > 0 THEN CLOSE (stream) 


OR fil i 
5 enaned! ,filenaned2,filenaneZ3 rs! 


AND getclock() BE 
$( LET stream,datalen,addr = 2.0,9 
LET header = VEC 3 24d 
LET cfile = "fJ]p{ 
cl k " 
chisdevictile) 
stream := OPEN(cfile,1,0) 
stream ¢ 0 THEN RETURN 
FO fae eee stra header 6) 
= 9 
Lens ore ee = (datalen (¢ 8) + header di 
onesie | 


$( READFILE(stre 
am,addr he i 
, ACTIVATE (RESULT?2,1,0) ee 
CLOSE (stream) 


C: (LF ¢ > CR)) ") 


1200 5=2400 424800 7=9409) ") 


Li 
IGITAL PRECISION 


HERE IT IS... THE PACKAGE YOU HAVE BEEN WAITING 
FOR! THIS COMPREHENSIVE SYSTEM WILL ALLOW YOU TO 
CREATE ALL THE SPECIAL EFFECTS OF ARCADE ADVENTURE 
AND SIMULATION PROGRAMS. REQUIRES ABSOLUTELY 

NO 68000 MACHINE CODE KNOWLEDGE — THE COMPILER 
DOES IT ALL FOR YOU, AUTOMATICALLY! 


Features include: 
* Easy drawing/amending of sprites * No limit to the number of sprites * Up to 16 
different sprites on screen simultaneously * Each sprite can have up to 16 different 
“shapes” to simulate natural motion * Up to 256 different planes to control depth of 
movement * Automatic real-time collision detection * Sprite reversal * Ultra high 
speed action — at top speed motion is faster than the eye can see! * Variable speed 
* Easy control from within your program, using SUPERBASIC keywords * Library of 
pre programmed sprites * Easy to use * Full instructions included 


CAN BE USED IN YOUR OWN PROGRAMS, WITHOUT 
ROYALTY RESTRICTIONS — PRODUCES SELF-CONTAINED 
68000 MACHINE CODE! 


FOR THE SINCLAIR 
QL COMPUTER 


£19.95 comPLETE WITH EXTENSIVE MANUAL 


ITAL PRECISION 
CO 


An excellent program for 
beginners and experts at 
the game. Variable 


A TOP FLIGHT 


68000 MACHINE playing strength, full on- 
CODE MONITOR, rence 
TO GET THE BEST backgammon. 

OUT OF YOUR QL! bg ™ Randomising features 


y * ensure a different game 
“FOR THE SINCLAIR QL COMPUTER each time — trillions of 
possibilities! Fast response 
speed — plays an aggresive, challenging and entertaining game. 

Dual clocks; 3 Playing Modes; Auto-play (Computer vs Computer); 
Normal (Human vs Computer; Supervisor (Human vs Human). 

Rules of Backgammon both in booklet and on-screen, in Quill 
document. 4 playing levels. Computerised dice thrower coupled with 
override option to allow you to throwreal dice. Very easy to operate. 


This machine code program will allow you to test, debug, check and 
correct any machine code program — and to understand the operation 
of anyone else’s! This state-of-the-art product is written entirely in 
machine code and, occupying very little space, can reside in the QL at 
the same time as your other programs (BASIC machine code). 

Features include: 
Edit/Jump/Trace/Set/ 


' 
Catalogue/DumpiLoad/Save)_ | FREE! A Full 68000 £1 5.95 complete WITH RULES OF BACKGAMMON 


Display registers/Set Disassembler Program is 

So supplied free to purchasers : Se 
thmetic etc. ; : 

RELEASE 2.0 Srine OE fupet Monitor INTRODUCTORY OFFER! 


* £1 OFF IF YOU * £3 OFF IF YOU - 
BUY 2 PROGRAMS _ BUY3 PROGRAMS | 


£18.95 compPLete WITH MANUAL 


MAIL ORDER: Just send cheque/postal order/cash to: 
DIGITAL PRECISION, 91 Manor Road, London E17 5RY 


Delivery will be by return of post. For orders from Europe add £1 per program. For 
airmail ordérs from all other countries add £1.50 per program. Within the U.K., our 
deliveries are post free 


Ml] 
IS DEDICATED TO TOP QUALITY 
a es PRECISION SOFTWARE FOR THE OL 


WE WILL PAY TOP ROYALTIES FOR GOOD ORIGINAL QL 
SOFTWARE — CONTACT US NOW! 


How to 


plOW-Up your 
"Sinclair OL 


fines es ceren eu eral peemiat te Remember, for QL, read QL/APL. 
maximum. 


The unique QL/APL programming language frees you And hlow the rest 
mH ee ee ee 


from the constraints of loops and endlessly long programs. 4 shin ris sci lees Mabie ee 
QLU/APL lets the computer cope effortlessly with data types an ary 5 5 ‘ | 
numeric precision and all that technical stuff. Leaving you free to Pro: MicroAPL U6, Unit eee Industrial Estate, 

get your QL to work for you, not against you. 9 On | 


; f : ; : L] Please send me more details about the power of QU/APL 
QL/APL is easy to work with, so it’s simple to write your p : 
own applications. i L] Please send me —_—copies of QU/APL at £99.95 plus £1.95 p&p i 


: : L] | enclose cheque/P.O. made payable to MicroAPL Ltd. 
Raton is is modular, so you can build up systems L] Please charge my Visa/Access card number 


QL/APL is interpreted, so changes can be made and | Card oxpiy cats 
tested immediately. 
QUAPL is incredibly powerful, so you never come up against | 
annoying limitations. It’s the key to taking advantage of the full Name: . 


32-bit power of the QL’s 68008 processor. It runs on the standard | RR i 
QL keyboard, and allows full access to QL Address: ] 


colour graphics and windows. And it’s built 

around MicroAPL’s highly- respected IBM- 

compatible implementation of the APL i 
language — in fact APL was originally 

developed by IBM for its mainframes. 


: 5 _ Tel No 
A software pedigree you can trust implicitly. ee ns one se se ne ne — 
QL and Sinclair are trademarks of Sinclair Research Ltd. 


(Prices include VAT. Please allow 28 days for delivery. For credit card telephone orders, phone 01-622 0395). 


Ralph Warren reviews the first in 


a series of sophisticated graphics 


packages and assesses the state 
of the art. 


This new graphics package, called 
GRAPHIQL, consists of two microd- 
rive cartridges and accompanying 
manual. One cartridge contains some 
80K of machine code which consti- 
tutes the main program plus a utility 
for dumping screens to printers. The 
other houses a set of demonstration 
screens. 

GRAPHIQL permits pictures to be 
drawn on a screen measuring 256 x 
256 pixels. A flashing cursor is used 
to indicate your position on screen. 
Initially, this appears as a set of cross 
wires, however its shape and colour 
may be altered. The cursor is moved 
about the screen using either the 
cursor keys or a joystick. The move- 
ment is slow although ‘wraparound’ 
at the screen’s edges permits move- 
ment from one side to the other 
without having to trek back across 
the centre. 

Each pixel on screen may be indi- 
vidually lit in any one of the QL’s 
eight basic colours. Colour is selected 
by pressing a single numeric key 
corresponding to the appropriate col- 
our code (0-7). 

Colour may be applied in one of two 
ways. The new colour simply replac- 
ing the old or, blending with one 
already there to produce a different 
colour (ie, cyan on magenta produces 
yellow). Furthermore pixels may be 
set to flash and, more interestingly, 
selection of airbrush mode makes it 
possible to paint narrow swathes of 
splattered dots across the screen. 

Talent have included a facility to 
magnify (16 times) the area of the 
screen upon which one is working. 
One of the highlights, this permits 
you to touch up displays with pin- 
point accuracy. 

On the design side, 'l'alent have 
built in a variety of routines for 
drawing lines, rectangles, circles and 
ellipses, though not arcs. These are 


A RR ON RR RE lc imme 


extures bring out a dazzle of different shades 
and hues. 


called using a set 
easily remembered two character 
commands. In addition a more soph- 
isticated set of routines permit blocks 
to be copied, moved across the screen 
with their contents rotated through 
180 degrees, or reflected in the vertic- 
al or horizontal. The problem is that 
only a single block may be defined at 
any one time and its size may not 
exceed 4000 pixels which works out 
at little over 6% of the screen. 

The true power of the package 
comes from a facility to define up to 
26 ‘textures’ which may then be 
reproduced on the main screen at any 
location, in any combination of col- 
ours. A ‘texture’ may be anything 
from a simple background pattern to 
an intricate shape or figure like a bird 
or a tree. It is designed on a separate 
screen or ‘doodle’ pad that occupies 
the bottom half of the screen. Whilst 
texture manipulation takes some 
getting used to, especially the colour 
aspects, it is possible to achieve 
effects which otherwise would take 
many hours of free hand sketching. 

To make the package as user- 
friendly as possible a crib line may be 
switched on which displays status 
information relating to colour selec- 
tion, cursor position and current 
operation. Similar to the Psion pack- 


of simple ead Ez 


uy 
44 
+ 


Te 


| Bex Mike Masters applies 
paint to pixel. The result of many 
hours work is spectacular. 


ges, there is a help command pro- 
vided that will page explanations of 
the various commands on screen. 
This is stored in memory and is 
instantly accessible. 

Sketches and textures may be 
saved to cartridge and files stored ina 
standard form so that pictures may 
be incorporated into other programs. 
Files vary in size from 12K for a 
texture file to 33K for a screen save. 

Overall, GRAPHIQL is aimed 
at the artist and recreational user as 
opposed to the draughtsman or en- 
gineer. Using the QL’s low-resolution 
screen, the emphasis is on colour and 
composition rather than pin-point 
accuracy. However, with features 
such as magnification and texture 
definition it represents a consider- 
able advance upon electronic sketch- 
pads currently available. Not quite 
Computer Aided Design but definite- 
ly a step in the right direction! 


Price: £34.95 

Supplier: (Mail order only) Talent 
Computer Systems, Curran Build- 
ing, 101 St James Road, Glasgow G4 
ONS. 041-552 2128. 
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NEW — FROM TALENT! 


GRAPHIQL 


Create superb colour pictures on your QL with TALENT’s outstanding new graphics package. It’s supplied 
on two microdrives — the first holds the master program and a printer dump utility, the second, three 
demonstration pictures. Backup copies can be made. GRAPHIQL comes with a detailed, clearly-written 
instruction manual, outlining the program's many facilities. 


Features include: 


Freehand drawing, 8 colours, optional flash 
Rubber banding, rubber boxes, even rubber 
circles and ellipses 

Variable size texture definition 

Doodle pad 

Colour and texture fill of any shaped area 
User-definable paint brush — any colour 

or width 


Colour list for full colour control 
Re-colour facility 

Magnification with panning 

Mirroring and rotation of blocks of screen 
Air-brush effect 

On-line ‘help’ facility 

Full file-store access 

Printer dump utility 


AS 


Text can be included in pictures. The characters can be single or double height with flash and underline. 
GRAPHIOQL pictures can be put into BASIC or assembler programs with the sample routines provided. 
Available in March by mail order direct from: 


£34.95 ws. 2 
+ 50p postage & packing | TA LEN 


COMPUTER SYSTEMS 


Curran Building, 
101 St. James Road, Glasgow G4 ONS 
Tel: 041-552 2128 (24-hour Credit Card Hot-Line) 
SOFTWARE FROM SCOTLAND 


SCARE ELECTRONICS 


UNIT 14, PEERGLOW INDUSTRIAL ESTATE, OLD’S APPROACH TOLPITS LANE, WATFORD, HERTS 
@ Tel: 0923777155 @& 


PRINTER INTERFACE 
QL SERIAL TO PARALLEL CONVERTER 


Switchable baud rate. This is necessary because the baud rate on the two serial ports cannot be set independently, 
and unless you can set the baud rate on serial to parallel converters your printer will be inoperative while using 


modems and other communications devices. Self-contained, colour matches the QL, full one year 

4 BAUD RATE SWITCHABLE guarantee, comes complete with 1.5 metres of cable 

* CRYSTAL CONTROLLED PRINTER SELECTOR 

* QDOS and SUPERBASIC compatible Capable of taking one QL and up to six printers 
* Drives any CENTRONICS printer Price £65.09 (d) inc. VAT 


+ 


Price £49.91 (d) inc. VAT 


Attention all software houses, Eprom cartridges for the 
QL, ROM expansion slot now available, an ideal way of 
packaging your utility program fast loading/no error and 
saves expense of microdrive cartridge. 

Please consult factory for details. 


DON’T BUY A COLOUR MONITOR FOR YOUR QL 


Have your Pye/Philips or Ferguson TX TV convertedtoa 

TV/Monitor. In house conversion. 

£63.25 (a) inc. VAT. 

Conversion kit £51.75 (d) inc. VAT 

* Resolution better than 585 x 450 pixels 

* Image clarity comparable to leading monitors 

* Includes RGB lead for connecting with QL 

* Conversions carried out at our workshops 

within 2/3 days 

* Please telephone for other makes 
Philips 14” TV/Monitor at £253 (a) inc. VA 
Specially converted to run for the QL. 


SD 4 4 4 4 4 a a / 


How to order by post, enclose cheque/P.O. made 
payable to Care Electronics or use Access. 7 days for 
delivery. 

Please add carriage (a) = £8.00 oa 


ry Qam-5pm Mon-Fri 


ENQUIRIES 
WELCOME 


(d) = £2.00 9am-4pm Sat 


28/QL User/April 1985 


COMPUTAMAGIC 


Win a new Q-Disc disk system from 
Computamate worth over £500 
(complete with dual drives), in this 
easy-to-enter competition. 


One of the first disk drive systems on 
the market, the Q-Disc consists of a 
small PCB with on-board ROM and 
disk driver conforming to the 
Sinclair-defined standard (40/80 
tracks, 9 sectors per track and 512 
bytes per sector). 

The unit slides into the QL’s main 
I/O port on the left hand edge of the 
machine adding a further two inches 
of ribbed black plastic to the 
machine’s length. A one metre ribbon 
cable then connects up the interface 
to the disk drive. 

The interface provides an arsenal 
of additional commands governing 
random access, file maintenance, job 
control and numeric conversion. 
Many of the extra commands work 
with microdrives as well as disks. 
Categories include Multitasking, 
Directory Enquiry, File Mainte- 
nance, File Enquiry, Random Access, 
Numeric Conversion and Develop- 
ment Tools. 

When linked up to disk drives, the 
QL is transformed into a fully fledged 
desk-top PC with file operations car- 
ried out in seconds as opposed to 
minutes. On paper Q-Disc is said to 
reduce access times from an average 
of 3.5 seconds (microdrive) to 125 
milliseconds. The following two tests 
illustrate these savings in real terms. 


mdv flp 
1. Loading a screen 30 secs 8 secs 
2. Backing up 
between drives. 8 mins 90 secs 


Much to the relief of the majority of 
users and in support of their claim of 
full Psion compatibility, Computa- 
mate include a special conversion 
program with Q-Disc. Whilst the 
program cannot miraculously trans- 
form old versions into new, it does 
breathe new life into them. 

Versions 2.00 of the packages will 
run unamended on Q-Disc. These 
versions, include an additional prog- 
ram called ‘config_bas’ (written by 
Psion) which permits the user to set 
default devices for system, data and 
help files. 

New or old, all the packages benefit 
from the transfer to disk. On Quill, 
for example, lengthy documents may 
be manipulated as easily as memos; 
loading and saving times are halved; 
scrolling fluid and block moves near 
instantaneous. The most marked im- 


provement, however, comes with 
Archive where faster file access has 
meant a vast improvement in search 
and update times. 


TO ENTER; All that’s required is a 
ittle verbal dexterity. Simply con- 
struct the longest word you can using 
the letters from the following phrase: 


“THE Q-DISC INTERFACE IS 
COMPUTAMAGIC!” 


140)H 9:5 Each letter can be used as 
many times as it appears in the 
phrase, but no more than that. Prop- 
er names (names of towns etc), fore- 
ign words, abbreviations and 
hyphenated words are not allowed. 

Words excluding the above found 
in the OED (complete version) will 
first be judged on the number of 
letters and then (in the event of a tie) 
on the number of different letters 
they contain. 

In the absence of an outright win- 


ner, the prize will be awarded to the 
first entry ‘out of the hat’. 
All entries must be written on a 
postcard only and sent to: 
Computamagic Competition, 
QL User, 
Priory Court, 
30-32 Farringdon Lane, 
London ECIR 3AU. 


ORO (emey.veX, Entries must be 


received on or before 20th April, 
1985. 


Ajeayesenyes The winner will be 
chosen by the Editor, whose decision 
is final, based on the conditions 
above. No correspondence about the 
results will be entered into, though 
the winner’s name will be published 
in a future edition of QL User. 


No employee of EMAP or associate com- 
panies or anyone connected with Computa- 
mate Data Products may enter this competi- 


tion. 
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— More 
Memory to your OL 


Le \ MEGABYTE MORE. the news mory 4 Excontion. Board from Simplex 
Data Ltd. gives your existing Ol a further 256k worth of extra memory. 


e. EVEN MORE EXPANSION In addition to the ever popular % Megabyte 
board, you now have the u opportunity to purchase a 2 — 
_ Memory Expansion board-512kl Even more memory for your OL 


a DESIGNED FOR THE. SINCLAIF QL. Most users of the OL will realise the. 
_ limitations of a 128k system. Sir iplex Data have not only expanded the 

_ memory potential, but have. ea you, the user, a ewider fi eld of 
~ operation. : 


__ BASY TO USE. Simply remove the port cover located at the end of the OL | 
keyboard and slot in oe NEW — Memory Expansion oo It’s as 
simple as that 


COMPACT SIZE. there's nothing like it on the market. ecm 
_ approximately 97mm x 77mm, this little board isa ged advance in Micro 
technology. 


- HOW IS IT DONE? Utilising the latest 
256k x 1 bit: Dynamic RAM ae 


Only 


£198.00* 


Inc. VAT, postage and packing. 
1 year warranty included. Please 
allow 28 days for delivery. 


iil! 
wa 


* This special offer price is guaranteed for a limited 
period only and ends the last day of April 


To: SIMPLEX DATA LIMITED, FREE POST, 432 GREENFORD RD, 
GREENFORD, MIDDLESEX UB6 8SG. 


Please send me: poe er (Qty) Memory Expansion Boards at 
£198.00 (inc. VAT, Post and Packing). 


ll 
4 
a | enclose Cheque/Postal Order for £ 
Simplex fa 
: Data NCIC CSS: Se SESS ea ES Sa RN es i es ee 
a a 
LIMMCC eee aia cel eecas lee maetn 


: TeGHONE NG! = - wea ee Pe ee 
432 Greenford Road, Greenford, Middlesex UB6 8SG. Tel: 01-575 7531 | ae 


Payment by ACCESS or BARCLAYCARD phone: 01-575 753] 
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, The communications explosion takes shape! 


~~ Communications are now 
the most exciting, essential part of any Miteriy 


In the past six months alone, over 150,000) 
modems have been sold in the UK. 


Now, the QL’s own communications explosion is : 
taking shape... and it has the potential to make 
more of communications than any other micro! 


Read on and discover exciting new ways to use 


your QL... with the QL modem... telephony 
unit...and power interface options. 


| 
| 
| 
| 


Once connected to the QL, 
QCOMallows youtoaccessthe 
considerable number of phone- 
in databases, such as Prestel 
and QNet. 

QCOMenablesyoutocom- 
municate with other computer 
users. Its facilities include elec- 
tronic mail, data transfer from 
Microdrivesand bulletin boards. 


ADVERTISEMENT 


DAVID KARLIN 


Why Q COMis 


everything you could wish 


for in communications. 


The QL is now communicating — via Q COM! This exciting 
three-part peripheral presents QL users with a multitude of 
ways to exploit the world of communications. 


Through it you can link your 
QL to larger minicomputers. 
QCOM has full capability in this 
area,andallowsthe QLtotalkto 
powerful mainframes. 

Q.COM's automatic dialling 


and call acceptance facilities, 
together with the storage of 
messages from other modems, 
will revolutionise the way you 
use your telephone. 

The next few pages of QL 
News tell you much more. 

It's enough for me to say here 
that with the QL and Q COM, 


you'll be exploring new open- 
ings in communications for 


Dua he 


David Karlin, 
Chief Design Engineer. 


The Q COM package 


Three s 


[7 QL communications 


acn) interface 


This multi-speed interface con- 
tains the sophisticated software 
used to set up QL communi- 
cations - and to control the 
Q CALL and QMOD units. 

Q CON also comes com- 
plete with Microdrive-based 
software. This enablesthe QL to 
link to larger computers using 
VT100 and viewdata protocols. 

The software will also 
run any standard modem - 
connected via Q CON’ built-in 
RS-232-C port. 

Most importantly, Q CON 
allows the QL to transmit and 


receive at rates switchable from 
75 to 9600 baud (encompass- 
ing the widely-used 75/1200 
Prestel rates, and 1200/1200 
half duplex rates for user-to- 
user exchange). 

Q CON is specially styled to 
suityour QL-with similar fluting 
and ribs — and forms the base 
module of a vertical-stacking 
system. 

It's supplied with full instruct- 
ions, software on Microdrive 
cartridge, and connecting leads. 


QCALL 


tO} 


Q CALL gives every QL user 
something out of the ordinary. 
Its a module which links 
directly to your telephone, and 
allows auto-dialling at the push 
ofasingle key. Inthe same way, it 
will permit incoming calls to be 


QMOD 


pecial parts to stack! 


QL auto dial/answer unit 


accepted automatically ... and 
even trigger pre-programmed 
activity from the QL! 

QCALL is the central unit of 
the package.It plugs directly into 
Q CON -sothere are no con- 
necting cables to worry about. 


™— QL modem 


Co} 


Q MOD has all the powerful 
facilities expected of a modem, 
in a neat and simple unit. 
Ituses either V23 75/1200 or 
1200/1200 baud rates, for Pres- 
tel, Micronet 800 and all the 


viewdata services described 
alongside. 

It also incorporates a tele- 
phone extension socket for 
manual dialling. 

Q MOD is the top unit of 


| 


| 


4 


Q COM, and comes with a 9' 
built-in telephone cable. 

All three units are available 
from Sinclair on (0276) 685311 
and from selected Sinclair 
stockists. 


The QL hooked 
on voice and data 


The QL can now act as your 
personal address book and 
telephone operator! 


Q COM allows you to store 
hundreds of personal or busi- 
ness numbers. 

You can store lengthy pass- 
words and account numbers — 
and recall them —at the touch of 
a single key. 

And any information that’s 
sent to you from other modem- 
owners can be gathered and 
stored on Microdrive cartridge, 
or incorporated into your QL 
Quill documents! 


ADVERTISEMENT 


Exploring the world 
of QNet, Prestel, 
Micronet and more! 


Thousands of QL users already 
enjoy the excitement of linking 
to a nationwide mainframe. 

Q COM turns your QL into 
an intelligent terminal, allowing 
you to access many thousands 
of pages of information, soft- 
ware and communications facil- 
ities. 

The services brought to you 
through Prestel can include 
Micronet 800, Viewfax 258 and 
QNet, the new QL database. 

Membership of QNet will 
bring you free software, QL 
news and features, and all the 
wide-ranging services of view- 
data! 

If armchair shopping is more 


your style, that's easy too. It's 
often possible to place a direct 
order using your QL! For dedi- 
cated QL owners, there's a daily 
selection of software reviews, 
chart toppers... and all the facts 
and figures you need to make 
buying peripherals simple. 

With Q COM you can also 
‘download’ software from the 
system directly into yourQLand 
either use it immediately, or 
store it on Microdrive cartridge. 

In fact the only problem 
you'll face with a viewdata 
service is finding enough time to 
explore its many features! 

You can find out how to join 
QNet by phoning 01-278 3143. 


‘QL MRILBOX 


8 > MANTA QL?7 MATE THE oF 
TELA ALL BY ONET rai 


| Sky Guide! 


KEY & Amax Contents 


News... information... banking services and QNet. And only a fraction of the QL's 


new viewdata capability. 


QL meets the 
mainframes! 


The Q CON unit of Q COM 
turns your QL into a VT100 ter- 
minal, providing instant access 
to in-house computing services, 
both mainframe and mini. 
Whether you are using your 
QL at home or at work, QCOM 
gives you access to electronic 
bulletin boards which provide 
help and advice 24 hours a day. 
You can leave messages or 
notices for friends or business 
contacts and even hold live 
discussions with them. 


Additional benefits for the 
QL business user include easy 
access of in-house company 
software, and the interrogation 
of other data bases around the 
country. 

There's also the opportunity 
oflinkingto British Telecom Gold 
- the widely-publicised and 
popular messaging service. 
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ADVERTISEMENT 


Sinclair Microdrive cartridges — up to 100K of programs and data on a medium so compact you can pop it into your pocket. 


IEEE-488... 


the instrument 
connection 


IEEE-488 is the interface 
standard set by the Institute 
of Electronic and_ Electrical 
Engineers for instrumentation 
control. 


IEEE-488 — or General Pur- 
pose Instrumentation Bus — is a 
parallel interface specifically 
designed for high speed data 
transfer between a number of 


An IEEE-488 interface slips discreetly into place. 


different types of device. 

It is commonly used for con- 
trolling instrumentation via a 
computer, allowing the creation 
of laboratory data acquisition 
systems, industrial control 
schemes, etc. 

The QL now has a fully- 
fledged IEEE-488 interface from 
CST. It plugs neatly into the QL's 
RAM expansion port, and can 
control up to 16 instruments 
simultaneously. 

Its available from CST on 
(0223) 323302. 


Microdrive cartridge 


price cut to only £1.99! 


On February 1, the cost of 
Microdrive cartridges came 
down from £4.95 to £1.99 each. 

Microdrive cartridges are the 
QL's own unique storage med- 
ium. Each stores up to 100K of 
information (that’s 40 pages of 
A4 text), ona cartridge no bigger 
than a book of matches! 

Over 500,000 cartridges are 
now being used throughout 
Britain. 

You can store up to 50 differ- 
ent data files per cartridge, ident- 
ified by titles of your own 
choice. 

And QL Microdrives them- 
selves are standard equipment 
on the new ICL One Per Desk 
micro, and British Telecom's new 
Merlin Tonto. 


With new Q-Disk, you can 
transform the QL into a power- 
ful small business system — 
comprising QL, monitor, disk 
interface, twin disk drives and 
printer. 

Q-Disk upgrades the QL to 
disk storage. Fitting easily into 
the QL' left hand RAM expan- 
sion port, without the need for a 
special expansion box, it con- 
tains a Western Digital disk con- 
troller chip. Software is held in 
an on-board EPROM (so little 
of the QL's RAM is used). 

Plug in Q-Disk, and the QL 
accepts one or two disk drives, 
sized 3 in, 312 in, 5% in, either 
40 or 80 track, single or double- 
sided. Even when two drives are 
used, they can be differenttypes! 

Q-Disk offers up to 1.6 
Mbytes of quick, reliable storage 
with a compatible disk drive. 

Its made by Computamate, 
who also offer a full range of 


New inter 
372’ or 5% 


face to connect 3’ 
disk drives 


ADVERTISEMENT 


The QL's 
high-tech spec 


QL to link students 


Strathclyde University, in 
Glasgow, plans to have a cam- 
pus network of 7000 QLs linked 
to a central VAX minicomputer. 

Thats one QL for every 
student ...a major investment 
project in a university which is 
nowaleading centre for artificial 
intelligence work. 

Sinclair is giving support 
worth £250,000 to the project. 
And its likely that QL users 


complimentary QL disk drives. 
To contact Computamate, 
phone (0782) 811711. 


Single disk unit fitted with 51% inch drives and (inset) the Q-Disk controller. 


everywhere will benefit -— the 
students plan to develop Al 
programs to run on the QL! 

The QL has impressed Prof. 
James Alty of the University’s 
Computer Science Depart- 
ment, who says ‘only the QL 
could offer the computing 
power, range of applications, 
and above all the portability, at 
a realistic price.’ 


Dimensions 

138 x 46 x 472mm 
(5° x PA" x 18741") 
Weight 

1388 gms (3.055 Ibs) 


RAM 

Massive 128K standard RAM, 
externally expandable to 640K. 
Extra RAM is available in 64K, 
128K, 256K and 512K units, 
from third-party suppliers. 


ROM 

48K, containing Sinclair Super- 
BASIC and the Sinclair Qdos 
operating system. 


CPU 

Motorola 68008 (running at 7.5 
MHz) for all principal functions. 
(Architecturally, the 68008 is a 
32-bit processor with an eight- 
bit data bus. One megabyte of 
non-segmented address space 
is available.) 

In addition, an Intel 8049 
controls the keyboard, gener- 
ates the sound, and acts as an 
RS-232-C receiver. 


Operating system 

Qdos (developed by Sinclair 
Research) is a single-user multi- 
tasking, time-sliced system using 
Sinclair SuperBASIC as a com- 
mand language with display 
handling for multiple screen 
windows; and device-indepen- 
dent input-output. 


Language 

Sinclair SuperBASIC, with the 
advantages of procedure struct- 
uring; extendability (including 
syntax); interpretation speed 
independent of program size; 
clean machine code interface; 
operatingsystem facilities acces- 
sible from SuperBASIC; equal 
capability for strings and arrays; 
and full error-handling facilities. 


Microdrives 

The QL incorporates twin QL 
Microdrives, each with a mini- 
mum 100K capacity, 3.5seconds 
average access time. Typical 
loading rate of machine code 
programs is 2-3K per second. 
Video 

High resolution graphics capa- 
bility with colour or mono- 
chrome monitor (or TV) in two 
modes — 512 x 256 pixels (four 


coloursavailable) and 256x256 
pixels (eight colours available). 
Normal character display for- 
mat of up to 85 x 25 with choice 
of character sets available (TV 
format of upto 40to 60columns 
depending on the software). 


Keyboard 

Full-size, 65-key QWERTY 
keyboard featuring a space bar, 
left- and right-hand shift keys, 
five function keys and four 
cursor control keys. The key- 
board can be angled by means 
of detachable feet. 


Expansion 

Excluding RGB monitor, power 
socket and TV port, eight peri- 
pheral/expansion ports are 
provided — one internal expan- 
sion, one Microdrive expansion, 
one ROM cartridge, two serial 
and two control channels, and 
the local area network. 


Serial 

Two standard RS-232-C com- 
munications interfaces for 
printers, modems, etc. Trans- 
mission at rates from 75- 19200 
baud or full duplex transmit/ 
receiveatseven rates upto 9600 
baud. 


LAN 

Forupto64 QLcomputers.Data 
transmission overthe net can be 
achieved at 100K baud. 


Power supply 
9V DCat1.8A,15.6V ACat0.2A. 


Joysticks 
Provision for one or two devices 
for games or cursor control. 


Applications Software 

QL Quill - word processor 

QL Abacus — spreadsheet 

QL Easel — graphics 

QL Archive — database 

All four packages supplied with 
the QL. 


Price 
£399 including VAT QL 
programs, full A4 manual, 
power supply, 4 blank 
cartridges and free Helpline 
service. 
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ADVERTISEMENT 


QL Software 


Updated versions of Psion 
software now available! 


QlLAbacus, Archive, Easel and Quill arethe four Psion programs 
supplied with every QL. They're now converted to 100% 
machine code, and as a result they load from Microdrive cart- 
ridge much faster. 

The overlays present in Version One software have been re- 
moved, resulting in noticably quicker on-screen performance. 

With the compactness of machine code, there's a big saving 
in QL memory too — all four programs now cope with larger, 
more professional applications! 

Version Two software is now supplied with every new QL. 


Existing QLUB members — see back page. 


QL Quill 


QL Quill makesit easy totypein, 
correct and store your letters, 
memos and reports. 

No training is needed - a 
beginner can be using QL Quill 
for word-processing within 
minutes! 

QL Quill has the facilities of 
professional word processing 
packages: including word wrap, 
search and replace, justification, 
page headers and footers. 


QL: Abacus 


QL Abacus is a powerful, yet 
easy-to-use spreadsheet. 

The program allows you to 
manipulate the contents of 
whole rows and columns by the 
names you assign them. There's 
no need todepend onconfusing 
letters and numbers. 

QLAbacusalso incorporates 
a range of functions which let 
you carry out rapid ‘what if' 
analyses on your data. 


QL-Easel 


QL Easel allows you to create 
graphs, bar charts and pie charts 
— at the touch of a key. 

The program handles any- 
thing from lines and shaded 
curvesto overlapping orstacked 
bars. 

QL Easel designs and scales 
automatically or under your 
control. Text can be added and 
altered as simply as data. 


cantuertlll 


QL Archive 


QL Archive is a sophisticated, 
powerful database program. 

It includes a screen editor 
which allows you to design your 
own screen and format your 
reports, and a procedure editor 
which lets you tailor QL Archive 
to your own requirements. 

QL Archive is ideal for all 
database uses, yet it's powerful 


‘ enough to be used by many 


software houses to generate 
specific database applications. 


Non-members of QLUB can purchase new versions of the 
above software for £15 per title, or £50 for all four programs. 
Phone (0276) 686100 for details. 


Fived feet 


etice turns lure 
fotor Come 


(Left to right) QL Entrepreneur, QL Project Planner and QL Decision Maker from Sinclair, 


Coming soon- 

QL Entrepreneur, 
QL: Project Planner, 
QL-Decision Maker! 


Three new QL business programs — with a difference! 

QL Entrepreneur, QL Project Planner and QL Decision 
Maker train you to apply new and exciting managementskills — 
through original and powerful means! 

An interactive teaching program gives you a thorough and 
enjoyable understanding of each subject — backed by a text- 
book and ‘self-test’ facilities-and an applications program helps 
you to use your new expertise for specific problems and 
projects. 

All three titles will increase your understanding and extend 
your control — making involved subjects easy, stimulating and 
usefull 


Sinclair 


e QL: Entrepreneur 


eet 


y Triptych Publishing Lid 


QL-Entrepreneur 


QL Entrepreneur is an essential 
program for anyone preparing 
to start a new business — what- 
ever it may be! 

It uses a ‘question and 
answer format to help you build 
a workable business plan. 

With the input you give, it 
works out the break-even point 
of the business; the first 18 
months’ cash flow, the type of 
finance needed; the year end 
Balance Sheet and Profit and 
Loss accounts ...and more! 

QL Entrepreneur builds your 
skills and techniques. 

Its flexible too, so thatyou 
can ask complex ‘what if 
questions at any stage! 

The program comes with a 
third, blank Microdrive cart- 


Sinclair 


Software by 
4 Triptych Publishing Lid 


ridge and a comprehensive A5 
manual. 


QL: Project Planner 


QL Project Planner will produce 
plans you can understand, 
monitor and more easily 
achieve. 

First, you break the project 
down into its individual activ- 
ities, telling QL Project Planner 
how long each takes and which 
are inter-dependent. 

When you decide on a start- 
ing time/date QL Project Plan- 
ner will tell you when each 
activity must start and finish and 
when the project will be com- 
pleted. 

Each activity is divided into 
its critically important stages - 
those which can safely be 
moved around without altering 


ADVERTISEMENT 


Sincisir- 


Decision Maker 


Software by 
2: Triptych Publishing Ltd 


the time taken by the project 
and those where movement 
will affect the completion dead- 
line. 

Whether or not you've used 
project planningsystems before, 
you'll be amazed at the differ- 
ence QL Project Planner can 
make. 

The program comes with a 
third, blank Microdrive cart- 
ridge and a comprehensive A5 
manual. 


QL:Decision Maker 


Whether you're thinking of 
buying a house, or taking on a 
new business contract, QL Deci- 
sion Maker makes the choices 
clearer! 

It lets you look at the possib- 
ilities — and their implications — 
through a decision tree. 


Once you've set outthe deci- 
sions and their probable costs or 
results, QL Decision Maker 
shows the outcomes which 
would occur from each partic- 
ular route. 

You can see how much 
money a decision could make 
for you... or cost you. Complex 
‘what if’ questions are dealt with 
swiftly and graphically. 

Youcandepend onthe QLto 
highlight the best possible 
route! 

QL Decision Maker comes 
with a third , blank Microdrive 
cartridge and a comprehensive 
A5 manual. 


Allthree programs are avail- 


able from Sinclair stockists, 
price £39.95 each, or Sinclair 
Research. Tel: (0276) 686100. 


Simi 


ADVERTISEMENT 


Now, buy aQL and 


youre a member of 


the QLUB-free! 


QLUB is the special Users Bureau for 
Sinclair QL owners. 

Already, there are well over 10,000 
QLUB members . . . enjoying a whole 
range of information and advisory ser- 
vices, 

Until now, joining QLUB cost £35 per 
year. From March 4, every new QL 


owner can become a member — free of 
charge! 

With your new QL, you'll find a post- 
paid form. Complete and mail it, and you'll 
soon be a member of the fastest growing 
computer club in the country. 

And you'll enjoy all the helpful services 
listed here! 


What QLUB membership offers you 


Regular newsletters 
delivered to your door 


One of the most important 


touch with allthe latest develop- 
ments. 

Each issue is packed with 
updates on QL hardware and 
software, tips on applying the 
four QL programs, and news of 


times a year. The magazine pro- 
vides a forum for QL owners to 
exchange views and keep in 


QLUB benefits is the special 
news magazine, appearing six 


how other people are using the 
QL. 
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Special 
discounts 


QLUB members also receive a 
range of special discounts, with 
savings of at least 20% on selec- 
ted software products. 

There are also special sub- 
scription rates for Personal 
Computer News and QL User. 


Free Helpline 
service from 
Psion 


All QLUB members are entitled 
to 12 months special assistance 
from Psion. 

They're atthe end ofthe tele- 
phone to answer any questions 
on using the QL Abacus, 
Archive, Easel and Quill pro- 
grams supplied with the com- 
puter. 

Help is also available on any 
aspect of using Sinclair Super- 
BASIC, Qdos, or linking your QL 
with major peripherals. 

Psion will normally answer 
any queries within 48 hours. 


QL program updates are no 
longer available free to QLUB 
members. They will be sold 
separately. 


Good news for 
existing QLUB 
members too! 


As one of the first members of 
QLUB, you should already have 
received one free update of 
each of the four QL programs - 
anda letter with your new 
membership details. 

If for any reason you haven't, 
you should ring (0276) 686100. 


You're a QL 
owner, but not a 
QLUB member? 


Then joining QLUB is easy and 
free! Ring (0276) 685311 for full 
details. You can be a full QLUB 
member within a few days. 


Where to find the QL 


The Sinclair QL is available at selected branches of Dixons, WH Smith, John Lewis Partnership, 


Currys, Greens in Debenhams and Ultimate, and larger branches of Boots, John Menzies and Sinclair Research Ltd 


specialist computer stores nationwide. 


* Simctsir , QL, QLUB, Qdos, and SuperBASIC, are Trade Marks of Sinclair Research Ltd. Quill, Easel, Archive and 


Abacus are Trade Marks of Psion Ltd. 


Camberley, Surrey, GU15 3BR. 
Tel: Camberley (0276) 686100. 
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War games move from behind 
darkened rooms of the MoD to your 
QL. Martin Croft battles it out. 
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D-Day has the distinction of being 
one of the first games produced for 
the QL. It’s not a gamble that any 
established software house would 
make lightly — Games Workshop 
don’t quite fit that description. 

The Workshop is best known in the 
fantasy and role playing game field. 
But this young company’s interests 
now stretch over the lucrative Amer- 
ican import market, games pub- 
lishing, backed up by the house 
magazine, White Dwarf. 

Involvement in software was the 
next logical step forward. The first 
three games, Tower of Despair, Bat- 
tle Cars and D-Day, all for the 
Spectrum appeared in autumn last 
year. The latter has now been de- 
veloped for the QL. It features some 
200K of programming, with 20K 
devoted to computer intelligence in 
two microdrive cassettes. 

On loading, the player is presented 
with a series of menus. The first is the 
choice of a one or two player game, 
then if the one player option is picked, 
whether the computer should play 
the Allies or Germans. 

Next comes the choice of scenario. 
Although the game is called D-Day, 
only two of the four scenarios actually 
cover the Normandy campaign. “The 
Landing’ is just that — D-Day itself, 
| while ‘The Breakout’ is based on the 


eventual collapse of the German line. 
The other two scenarios revolve 
round Arnhem — ‘To Arnhem’ is the 
push to relieve the airbourne attempt 
to take the Arnhem Bridges, while 
‘Arnhem Invasion’ is the actual air- 
bourne drop. 

The last choice needed before play 
can begin is whether the forces 
should be small or large, ie, 15 units a 
side, or 50. At this point, you can see 
the map, whichever size was chosen. 

The screen is divided into two 
areas. Displayed in the upper window 


is a tactical map. On 
this are marked terrain 
features and units such 
as tanks and mortars. 
Both the units and indi- 
vidual terrain symbols 
are a character-sized 
block. 

Below the tactical 
map is a second window 
used to list instructions 
or provide information. The player 
can call up information on a particu- 
lar unit by placing it in the centre of 
the tactical map and hitting F1. 

The actual mechanics of play are 
simple. The player whose turn it is 
has two choices for each unit — to 
move or fire it. Movement and firing 
of units need not take place in any 
particular order — you can go back 
and forward as the fancy takes you. 

To move a unit, first select and 
centre it on the tactical map, then hit 
ENTER. The computer will give you 
the options of Automatic or Manual 
movement. In Automatic, a unit will 
travel North, South, East or West, 
until it has either run out of move- 
ment points, bumped into another 
unit or the edge of the playing area. 
Manual movement means that the 
player moves the units square by 
square using the cursor keys. 
Assuming the firer and target are 


within range and line of sight, you go 
into the firing routine. A crooked line 
is drawn between the two and a siren 
sounds. After this, one of two mes- 
sages appears — ‘unit damaged’ or 
‘unit destroyed’. About four shots are 
needed to knock out the target. 

The other permissible action is 
close combat, whereby you simply 
move onto an enemy unit. An audible 
warning sounds, and the battle prog- 
ress is charted by two bars, shown in 
the bottom window. These reflect the 
amount of damage being done by 
attacker and defender. The only re- 
sult of close combat seems to be the 
total destruction of one of the units. 

Once one player has finished mov- 
ing and firing all his units, play 
moves to his opponent, who performs 
exactly the same steps. The passage 
of time is charted by a clock in the 
bottom left hand corner of the screen, 
along with losses taken by each side. 
The main drawback with the game is 
the size of the map. With 50 units a 
side, it is far too small. There is no 
room for tactical thinking — all a 
commander can do is put down his 
head and charge, and each game 
becomes a mindless slugfest, 
although 15 unit armies allow far 
more fluid engagements to develop. 


Graphically, D-Day is very im- 
pressive. The QL’s high definition 
has been married to a board war- 
game-style map and counter set. The 
symbols used to denote the various 
sorts of infantry will be familiar to 
those used to Avalon Hill or SPI 
cardboard counters, although they 
may seem arcane to the uninitiated. 

Though the programming is more 
than adequate the game suffers from 
planning problems. An increase on 
the 20K devoted to computer intelli- 
gence would be a start. 

As it stands, the program is able to 
provide a fairly strong non-human 
opponent, but much more could have 
been done with the available 
memory. Not many opponents are 
willing to wait 15 minutes while one 
fiddles with a keyboard before they 
can make their turn. 


QL User/April 1985/39 


| 


] 


THE PROGS 


Sprite design is the theme of this month’s section — programs of all 


descriptions are considered. Send them to ‘The Progs’, QL User, 


Priory Court, 30-32 Farringdon Lane, EC1R 3AU. 


Simple Synthesizer 


David Pearce 


Short and sweet, this program 
converts the QL keyboard into 
apiano with the keys arranged 
as follows 
(‘S’ being the note C): 
---E-R--Y-U-I---P-[ 
A-S-D-F-G-H-J-K-L-; 
The length of each note is set to 
1 beat but pressing keys 1 to5 
will increase the beat whilst 0 
will reduce it. Tunes of up to 
255 notes may be composed, 
saved, loaded and played back. 


100 REMark **#*#* QL User - Simple Synthesiser **** 
110 x=1:DIM g#(255) :pitch=0:1=0: j=O: k=O: time=10: me 
nu 

120 DEFine PROCedure menu 

130 x=1:CLS:PRINT "MUSIC SYNTH"\  "----------~- MANN 
"1-keyboard ON ( \= OFF) "3\3"2-Play Back"3;\;"3-Sa 
ve Tune"3:\:"4-Load Tune"3;\3"5-Choose Instrument"\" 
6-New Tune" 

REPeat chce 

b#=INKEY$ (-1) 

IF b#= "1" THEN keyboard 

IF b#= "2" THEN playback 

IF b#= "3" THEN savel 

IF b#= "4" THEN filet 

IF b#= "5" THEN instrument 

IF bs="6" THEN DIM g#(255) :x=1 

END REPeat chce 

END DEFine menu 

DEFine PROCedure keyboard 

REPeat gett 

k#=INKEY# (0) 

IF k#<>"": musak k#: g#(x)=k$ix=x+1:END IF 

IF k#=" THEN EXIT gett 

IF k#=" " THEN x=x-1 
END REPeat gett 

END DEFine keyboard 
DEFine PROCedure musak 
IF at="a" THEN pitch=83 
IF ag="s" THEN pitch=78 
IF a$="d" THEN pitch=69 
IF at="4" THEN pitch=61 
IF at="g" THEN pitch=58 
IF a#="h" THEN pitch=50 
IF a$="j" THEN pitch=43 ee 

IF a#%="k" THEN pitch=37 

IF a#="1" THEN pitch=35 

IF a#="5" THEN pitch=30 

IF a#="p" THEN pitch=32 

IF a#="C" THEN pitch=28 

IF a$=""" THEN pitch=26 

IF a#="e" THEN pitch=73 

IF a#="r" THEN pitch=65 

IF a#="y" THEN pitch=53 

IF a%="u" THEN pitch=46 

IF at="i" THEN pitch=40 

IF a#="1" THEN time=10:END DEFine musak 

IF a#="2" THEN time=20:END DEFine musak 

IF a#="4" THEN time=40:END DEFine musak 

IF at="3" THEN time=30:END DEFine musak 

IF a#S="0" THEN time=S:END DEFine musak 

BEEP O,pitch, (pitch+1) ,1,k,j:PAUSE time: BEEP 
END DEFine musak 

DEFine PROCedure playback 

x =1 

IF g#(x)<>"\"smusak g#(x)2x=x+1:G0 TO 600:END 


(a) 


END DEFine playback 

DEFine PROCedure savel 

INPUT "Name of file?"3;m%:OPEN_NEW #5, m¢ 
FOR x=1 TO 255:PRINT #5,g#(x):END FOR x 
CLOSE #5 


a 
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650 END DEFine 


670 DEFine PROCedure filei 
680 INPUT “name of file?";m$:OPEN #5,m$ + 


690 FOR x=1 TO 255: INPUT 
700 CLOSE #5 
710 END DEFine 


#5,9%$(x):END FOR x 


720 DEFine PROCedure instrument 
730 PRINT \\\"options: "\"1-Organ"\"2-Eucalalee"\"3 
—-Oboe"\"4-Clarinet"\"5-—Wah" 


740 REPeat cho 

750 c#=INKEY$(-1):g = c# 
760 IF g THEN EXIT cho 
770 END REPeat cho 


780 IF g=1 THEN 1=0:k=0: j 
790 IF g=2 THEN 1=15:k=-8 


800 IF g=3 THEN 1=15:k 
810 IF g=4 THEN 1=7:k=-— 


INSTR "12345" 


15: menu 


820 IF g=5 THEN 1=2:k=1: j=14:menu 


830 AT 12,0: 


CLS 2:END DEFine instrument 


Instant Sprites 


Richard Cross 


Designing multicoloured 
sprites by hand may shed light 
on the intricacies of the QL’s 
screen display but can prove 
time consuming. This set of 
programs makes design a 
matter of seconds and provides 
a simple way of animating 
them within a SuperBasic 
program. All three programs 
should be typed in and saved to 
microdrive before they are run. 
The first program creates a 
machine code routine used by 
the remaining programs. The 
routine will print a number of 
user-defined sprites to the 
screen and permits them to be 
moved from their last position 
according to a set of 
parameters. These parameters 
appear as 2 bytes of general 
information followed by a 
number of 16 byte blocks (one 


for each sprite). Parameters 
must be stored in memory 
directly after the machine code 
routine. As the routine is 552 
bytes long, the start of each 
parameter block will be: 
start_address + 552+ 2+ 

(16*sprite_number (0 to 

255) 
start_address is the location 
where the routine has been 
loaded into memory. 

Once all the parameters 
have been POKED into 
memory all that remains is to 
call the routine. Each call will 
update the sprite’s x,y co- 
ordinates. In a general form 
the whole process would 
appear as followsina 
SuperBasic program: 

a = RESPR (2000) 

LBYTES mdv1_sprite_ 

bytes,a 

(POKE data in ata + 552 

onwards) 

CALLa 


100 REMark **** QL User -Sprite Designer ***** 
110 REMark #*#** Machine Code Routine #### 
120 MODE 8:PRINT "Creating Machine Code" 


130 a=RESPR (1000) 


140 FOR x=a TO at+553:READ r:POKE x,r 
150 DELETE mdvi_sprite_bytes:SBYTES mdv1_sprite_by 


tes,a,554 
160 STOP 


170 DATA 78,64,78,114,0,0,75,250,2,32,112 
180 DATA 0,27,64,0,1,73,237,0,2,16,45 
190 DATA 0,1,176,21,108,74,74,20,103,60,96 
200 DATA 0,0,148,97,0,0,126,18,44,0,2 


210 DATA 20,44,0,3,74,44, 


0,1,102,8,80 


220 DATA 236,041,974, 46,96, 30,72, 167,95,0 
230 DATA 97,38,76,159,0,6,97,68,210,44,0 


240 DATA 6,212,44,0,7,25, 
250 DATA 0,3,97,14,82,45, 
260 DATA 16,96,174,112,0, 
270 DATA 24,44,0,5,122,0, 


65,0,2,25,66 
0,1,73,236,0 
78,117,22,44,0,4 
124,0,58,4,202 


280 DATA 195,227,141,28,44,0,11,202,198,32,108 


290 DATA 0,12,209,197,97, 
300 DATA 44,0,11,16,44,0, 
310 DATA 108,2,78,117,81, 


0,1,52,78,117,982 
11,176,44,0,10 
236,0,11,78,117,114 


320 DATA 0,116,0,118,0,120,0,78,117,122,0 
330 DATA 124,0,126,0,78,117,97,246,74,44,0 


660 
670 
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DATA 6,106,20,26,44,0,2,28,44,0,6 
DATA 72,134,218, 70,12,697,0,0, 109,86, 76 
DATA 26,97,218,26,44,0,2,28,44,0,4 

DATA 229,14, 218,70, 28,44,0,4,218,70,12 
DATA 69,0,255,108,468,97,192,74,44,0,7 
DATA 106,22,26,44,0,3,28,44,0,7,72 

DATA 134,218,70,12,69,0,0,109,52,96,0 
DATA 255,28,97,162,26,44,0,3,28,44,0 
DATA 5,218,70,28,44,0,7,218,70,12,69 
DATA 0,255, 108,34,96,0,255,0,74,44,0 
DATA 8,103,34,107,86,96,46,74,44,0,8 
DATA 103,24,107,96,96,36,74,44,0,9, 103 
DATA 22,107,96,96,34,74,44,0,9,103,12 
DATA 107,104,96,24,81,236,0,6,96,0, 255 
DATA 152,81,236,0,7,96,0,254, 200,68, 44 
DATA 0,4,96,0, 255, 136,68,44,0,7,96 

DATA 0,254,184,97,0,255,52,18,44,0,2 
DATA 20,44,0,3,97,0,254,238,81,236,0 
DATA 1,78,117,97,232,26,44,0,4,80,2346 
DATA 0,2,229,13,155,44,0,2,96,0,255 

DATA 86,97,212,81,236,0,2,96,0,255, 76 
DATA 97,202, 26,44,0,5,80,236,0,3,155 
DATA 44,0,3,96,0,254,114,97,184,81, 236 
DATA 0,3,96,0,254,104,93,131,36,67,97 
DATA 66,46,4,83,135,114,8,146,128,38,73 
DATA 44,10,122,0,54,24,24,3,224,75,26 
DATA 3,224, 45,225,77,26,4, 224,45, 72,49 
DATA 26,3,227,45,225,77,26,4,227,45,187 
DATA 145,84, 137,81,206,255,220,34,75,47,233 
DATA 0,128,38,73,81,207,255, 206,112,0,78 
DATA 117,32,1,226,137,239,138,34,65,211,194 
DATA 211,252,0,2,0,0,38,9,9,131,0 

DATA 0,34,67,2,128,0,0,0,3,227,136 

DATA 78,117,0,0 


Lunar Lander 


This short lunar lander 
simulation shows how the 
sprite routine may be 


300 
310 
320 
330 


included into a SuperBasic 
program. The object of the 
game is, using the cursor keys, 
to negotiate a tunnel and land 
on a moving platform. 


REMark ##*#* QL User - Lunar Lander **** 
REMark Run in tv mode 

init 

REPeat main 

screen 

game 

INPUT #O\\"Another go ? (y/n) > “san 
IF an#=="n" THEN EXIT main 

END REPeat main 


DEFine PROCedure screen 

WINDOW #2,512,256,0,0 

PAPER O:PAPER #2,0:MODE 8 

BLOCK #2,511,40,0,215,46 

BLOCK #2,220,120,0,56,2 

BLOCK #2,220,120,290,56,2 

LINE 0,80 TO 70,80 TO 70,20 TO 0,20 
LINE 165,80 TO 95,80 TO 95,20 TO 165,20 
END DEFine screen 

DEFine PROCedure init 

RESTORE 960 

a=260144 

IF PEEK_W(a)<>20032 THEN x=RESPR(2000) :LBYTES 


flp2_sprite_bytes,a 


340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
440 
470 
480 
490 
500 


d=at+i000 

FOR z=d TO d+895 STEP 2:READ x:POKE_W z,x 
END DEFine init 

DEFine PROCedure game 

ex=0 

RESTORE 920 

FOR z=at+552 TO a+565:READ x:POKE z,x 
POKE_L at+566,a+1000 

FOR z=at+S570 TO at+581:READ x:POKE z,x 
POKE_L (at+582) ,at+1384 

BEEP 0,100,50,1,100,6,15,15 

grav=0 

t=0 

$x1=at560: syi=at+561: sx=at556: sy=at+557: px=at+572 
REPeat m 

t=t+1 


510 grav=grav+.2:IF grav>1 THEN grav=0 

520 CALL a 

530 kZ=KEYROW (1) 

5340 IF kZ&&16 :POKE sxi, (PEEK (sxi))+1 

550 IF k%&&k2 =POKE sxi, (PEEK (sxi))-1 

560 IF k%&&4 = POKE syi, (PEEK (syi))-1 

570 POKE syi, (PEEK (syi))+grav 

S80 IF PEEK (sy)>45 AND PEEK (sy)<173 :tunnel:IF ex= 
1:EXIT m 

590 IF PEEK(sy) >203:explode:EXIT m 

600 IF PEEK (sy)=195:IF PEEK (sx)=PEEK (px) :done:EXI 
Tm 

610 IF PEEK (sy) >196:platform:IF ex=1 THEN EXIT m 
620 END REPeat m 

630 END DEFine game 

640 : 

650 DEFine PROCedure explode 

660 POKE at555,0:CALL a 

670 POKE a+564,2:POKE a+565,0 

680 BEEP 

690 BEEP 20000,10,20,10,20,8 

700 POKE_W (a+560) ,O:POKE_L (at+566) ,at+1640 

710 FOR 1=1 TO S0O:CALL a 

720 END DEFine explode 

730 : 

740 DEFine PROCedure tunnel 

750 IF PEEK (at+556) >109 AND PEEK (a+556)<130 THEN RE 


760 explode 

770 ex=1 

780 END DEFine tunnel 

790 : 

800 DEFine PROCedure done 

810 BEEP 

820 AT 0,0:CSIZE 3,1:PRINT "Well Done !!" 

830 CSIZE 0,0:PRINT "You landed in "jst3" time unit 


840 BEEP 20000,10,20,1000,1 

850 END DEFine done 

860 =: 

870 DEFine PROCedure platform 

880 x=PEEK (sx) :xx=PEEK (px) 

890 IF x<xx+16 AND x>xx-16:explode:ex=1 

900 END DEFine platform 

910 : 

920 DATA 2,09,255,0,40,20,4,16,2,2,0,0,35,0 

930 DATA 255,0,128,198,4,16,1,0,1,0,2,0 

940 DEFine PROCedure sa: DELETE mdvi_module:SAVE md 
vi_module 

950 END DEFine 

960 DATA 0,0,90,0,0,0,0,0,0,0,0 

970 DATA 0,0,5,80,0,0,5,80,0,0,43 

980 DATA 252,0,0,63,252,0,0,43775,43775,0,515 

990 DATA 513,32832,32960, 2060, 2565, 41040,8240,1081 
5,0,0,43260 

1000 DATA 0,0,0,0,0,0,0,0,0,0,0 

1010 DATA 0,0,0,0,0,0,0,0,0 

1020 DATA 0,0,0,0,0,0,0,0,0,0,0 

1030 DATA 0,0,5,80,0,0,5,80,0,0,63 

1040 DATA 252,0,0,63,252,0,0,43775,43775,0,515 
1050 DATA 513,32832, 32960, 2060, 2565, 41040 ,8240,108 
15,3,192,43260 

1060 DATA 12,3,192,48,0,3,192,0,0,0,0 

1070 DATA 0,0,0,0,0,0,0,0,0 

1080 DATA 9,0,0,0,0,0,0,0,0,0,0 

1090 DATA 0,0,5,80,0,0,5,80,0,0,63 

1100 DATA 252,0,0,63,252,0,0,43775,43775,0,515 
1110 DATA 513,32832,32960, 2060, 2565, 41040 ,8240, 108 
15,2,128,43260 

1120 DATA 8,2058,8352,32,32,2570,41120,8,0,10794,1 
0280 

1130 DATA 0,0,32896,2570,0,0,0,0,0 

1140 DATA 0,0,0,0,0,0,0,0,0,0,0 

1150 DATA 0,0,0,0,0,0,0,0,0,0,0 

11460 DATA 0,0,0,0,0,0,32960,0,0,515,43775 

1170 DATA 43775 ,43775, 43775, 43712, 43520 , 43520, 4352 
3,43775 ,43775,43775,43775 

1180 DATA 32963,112,13,707,15,124,61,240,5,84,21 
1190 DATA 80,15,124,61,240,3,112,13,192 

1200 DATA 0,0,0,0,0,0,0,0,0,0,0 

1210 DATA 0,0,0,0,0,0,0,0,0,0,0 

1220 DATA 0,0,0,9,0,0,32960,0,0,515,43775 

1230 DATA 43775,43775, 43775, 43712, 43520, 43520, 4352 


3,43775,43775,43775,43775 | 
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1240 DATA 32963,240,15,707,12,204,51,48, 15, 60,60 
1250 DATA 240,12,204,51,48,3,240,15,192 

1260 DATA 0,0,0,0,0,0,0,0,0,0,0 

1270 DATA 0,0,0,2056,0,0,2056,41120,0,0, 35466 
1280 DATA 41120,0,0, 10282,32896,0,0,2570,32896,0,0 
1290 DATA 2056,8224,0,0,8738,0,0,0,514,0,0 

1300 DATA 0,0,0,0,0,0,0,0,0,0,0 

1310 DATA 0,0,0,0,0,0,0,0,0 

1320 DATA 0,0,0,0,0,0,0,0,0,0,0 

1330 DATA 0,0,10,8,0,2,10,160,0,0,170 

1340 DATA 168,128,0,42, 148,0,0,683,33000,32,0 
1350 DATA 555,33002,0,0,2094,170,0,0,170,170,0 
1340 DATA 2,10,40,0,0,2,138,0,0,32,0 

1370 DATA 0,0,0,2,0,0,0,0,0 


Sprite Designer variety of colours. Once a sprite 
has been designed pressing ‘\’ 

The third of our programs is will print it out on screen, along 

the sprite designer proper. with the values which need to 


When runit will ask you for the | be POKEd in to create it. There 
size of the grid yourequire and | isalso an option to generate 


re-present pixels on a screen. your own BASIC program lines 
This will then be displayed and | similar to those in the 

using cursor keys along with demonstration program (830— 
ENTER, you willbe permitted | 1240). Finally, all sprites may 
to fill in the boxes witha be saved to tape. 


10 REMark *#*** QOL User_Sprite Designer **** 
110 OPEN #4,seriz:BAUD 9600:init 
130 WINDOW #1,470,200,25,10:WINDOW #2,470,200,25,1 
fe) 
150 MODE 8: INK 7:PAPER 200:STRIP O:CLS 
160 INPUT #0;"x size (groups of four pixels) ?"5xs 
170 INPUT #0;"y size ( pixels) ? "sys 
190 CLS #0:xs=xs*4:xs=xs-l:ys=ys-1 
210 DIM gr(xs,ys):grid xs,ys:x=0: y=O:col=7:cur 
250 REPeat main 
260 BLOCK 40,20,400,160,col:k#=INKEY$ 
280 key=CODE(k#):SELect ON key=48 TO S5:col=k¢ 
290 key#KEYROW (1) 
310 IF (key&&128)>0 AND y<ysscursy=y+licur 
320 IF ¢(key&&16) >0 AND x<xstcur:x=xt+1licur 
330 IF (key&&4)>0 AND y>Orcursy=y-1:cur 
340 IF (key&&2)>0 AND x>O:cur:x=x—-1licur 
350 IF (key&&1) >O: enter 
360 IF key=32:o0ut 
370 IF key=8: esc 
390 END REPeat main 
410 DEFine PROCedure grid (along,up) 
420 AT 19,0:PRINT "files-press ESC,output-press \" 
430 STRIP O:RESTORE :FOR a=O TO 7:READ c#:AT (a)*2 
poisPRINT a3"-"sct 
440 bw=(INT(180/ (alongt1) )) #2: bh=INT (180/ (up+1)) 
460 BLOCK bw*(along+1) ,bh*(upti) ,10,5,0 
470 END DEFine grid 
490 DEFine PROCedure cur 
510 OVER -1:BLOCK 2,2, (x*bw)+10+(bw/2) , (y*#bh) +5+(b 
h/2),7:0VER O 
530 END DEFine cur 
550 DEFine PROCedure enter 
560 gr (x,y) =col 
.570 BLOCK bw,bh, (x*bw) +10, (y#bh)+5,col:cur 
590 END DEFine enter 
610 DEFine PROCedure out 
630 CLS: INPUT "1 -—Dump data to printer"\"2 -Create 
BASIC DATA lines"\\"<enter> -neither "\\"? "srs 
635 pri=0 
640 IF r#=="1" THEN pri=i:INPUT\\"title? "3t#:PRIN 
T #4\t$\ 
645 IF r$=="2" THEN pri=2:initstore 
670 PAPER 0O:CLS: addr=udgs 
680 FOR d=0 TO ys 
690 FOR a=0 TO xs STEP 4 
700 word=calc( (gr (a,d)), (gr (ati,d)), (gr (at2,d)), (g 
r(at+3,d))) 
705 IF pri=1 THEN PRINT sword!; 
710 IF pri=1 THEN PRINT #4;word!; 
715 IF pri=2 THEN store(word) 
720 POKE_W addr ,word: addr=addr+2 
730 END FOR a 
740 IF pri=i THEN PRINT #4;\ 
750 END FOR d 
| SERRE 


735 
740 
Ss 

770 
790 


IF pri=2 THEN PRINT #5:CLOSE #5 
CALL multit+446,50,50, ( (xs+1)/4) ,ys+1,0,0,0,udg 


PRINT #0;"press any key":PAUSE:PAUSE:reprint 
END DEFine out 

DEFine PROCedure reprint 

PAPER 200:CLS:CLS #0:grid xs,ys 

FOR d=0 TO ys 

FOR a=0 TO xs 

BLOCK bw,bh, (a*#bw) +10, (d*#bh)+5,qgr (a,d) 
END FOR a 

END FOR d 

cur 

END DEFine reprint 

DEFine FuNction calc (v4,v3,v2,vi) 
v1=(v1&&3S) + ( (v1 &&4) #128) 

vV2= ( (v2R23) #4) + ( (v2&&4) #512) 

v3= ((v3&&3) #16) + ( (vVSR&4) #2048) 

v4=( (v4hh3) #64) + ( (v4&h4) #8192) 

RETurn vitv2t+tv3+v4 

END DEFine calc 


1000 DEFine PROCedure esc 


MODE 8:PAPER O:PRINT "1 -load character" 
PRINT “2 -save character" 

PRINT "3 -new charcter" 

INPUT \\"choice? "“s3ct 

IF c#="1" THEN lochar 

IF c#="2" THEN sachar 

IF c#="3" THEN RUN 

reprint 

END DEFine esc 

DEFine PROCedure lochar 

INPUT \\"file name (including device)? '";f# 
OPEN_IN #5,f#: INPUT #53xs: INPUT #5;3ys 
DIM gr (xs,ys) 

FOR a=0 TO xs 

FOR b=0 TO ys 

INPUT #53 qr (a,b) 

END FOR b 

END FOR a 

CLOSE #5 

END DEFine lochar 

DEFine PROCedure sachar 

INPUT \\"filename (including device)? "3f# 
DELETE ##:OPEN_NEW #5;4#:PRINT #5; xs\ys 
PRINT #53gr:CLOSE #5 

END DEFine sachar 

DEFine PROCedure initstore 

REPeat gett 

INPUT "filename (including MDV?_)? ";filet 
IF "mdv" INSTR file# THEN EXIT gett 

IF "flp" INSTR file*# THEN EXIT gett 

END REPeat gett 


1410 DELETE file#:OPEN_NEW #5,files 

1415 lnum=10: count=0 

1430 END DEFine initstore 

1450 DEFine PROCedure store (num) 

1460 IF count=0 THEN PRINT #531num3;" DATA "snum3:1 
num=lnum+10: count=count+1:RETurn 

1470 IF count<10 THEN PRINT #53", "3 mums; :count=coun 
t+1:RETurn 

1480 IF count=10 THEN PRINT #5;","3num:count=0 
1490 END DEFine store 

3000 DEFine PROCedure init 

3020 multi=RESPR (2000) : udgs=multi+1000 


3030 


LBYTES mdvi_sprite_bytes,multi 


3040 END DEFine init 
3050 DATA "black ","blue ","red ","pink "“,"gre 
en ","cyan ","yellow","white " 


DIY Assem bler Il SuperBasic and called 


QSNAIL the program can 


Giles Todd handle all of the 6800’s 


Last 


month we publishedthe __| instruction set. It’s only 


first installment ofour type-it- | drawback is that it’s a little 
yourself Assembler. Written in ! slow. Full info last month. 


2390 DEFine FuNction read_linet 
2400 LOCal line$,get#,outloop,loop 
2410 gets="" 

2420 lines="" 
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. 2430 REPeat outloop 

2440 REPeat loop 

2450 IF EOF (#5) THEN 

2460 lines="END" 

2470 EXIT loop 

2480 END IF 

2490 getS=INKEYS (#5) 

2500 IF CODE(get#)=13 OR CODE(get#)=10 THEN EXIT 1 


2510 linet=lines&get 
2520 END REPeat loop 
2530 IF pass=1 AND CODE (get#)=10 THEN PRINT #chann 


2540 IF line#<>"" THEN EXIT outloop 
2550 END REPeat outloop 

2560 RETurn linet 

2570 END DEFine read_linet 

2580 : 

2590 DEFine PROCedure close_file(f#) 
2600 CLOSE #5 

2610 END DEFine close_file 

2620 : 

2630 DEFine FuNction next_field#$(1$) 
2640 LOCal f#,i1,loop 


2650 f$="" 

2660°IF 1$="" THEN RETurn ## 
2670 i=0 

2680 REPeat loop 

2690 i=i+l 


2700 IF 1$(i)<>" " AND CODE(1$(i))<>9 THEN EXIT lo 


2710 IF i=LEN(1%) THEN EXIT loop 

2720 END REPeat loop 

2730 IF i=LEN(1%) AND (1$(i)="_" OR CODE(1$(i))=9) 
THEN RETurn "" 

2740 REPeat loop 

2750 £$=F$&1$ (i) 

2760 IF i=LEN(1%) THEN EXIT loop 

2770 i=i+l1 

2780 IF 1$(i)=" " OR CODE(1#(i))=9 THEN EXIT loop 

2790 END REPeat loop 

2800 IF i=LEN(1#) THEN 1$="":ELSE 1$=1%(i TO) 

2810 RETurn f% 

2820 END DEFine next_field¢ 

2830 : 

2840 DEFine PROCedure initialise_arrays 

2850 LOCal i 

2860 hex$="0123456789ABCDEF" 

2870 max_symbols=200 

2880 DIM mnemonics (63,5) ,symbol$(max_symbols,8) ,sy 

mbol _address (max_symbols) ,condition$(15,2) ,cond%(1 

5) ,word(S) ,shift (15) 

2890 FOR i=0 TO 15:shift(i)=2%i 

2900 RESTORE 3010 

2910 FOR i=0 TO 63 

2920 READ mnemonics (i) 

2930 END FOR i 

2940 FOR i=O TO 18 

2950 READ symbol$(i) 

2960 END FOR i 

2970 FOR i=0 TO 15 

2980 READ condition#(i) ,cond% i) 

2990 END FOR i 

3000 END DEFine initialise_arrays 

3010 DATA "ADD", "AND", "ASL", "ASR", "Bcc", "BRA", "BSR 
a "CLR" 5 "CMP" ’ "EOR" ‘ "IMP" <i "ISR" ‘ "LSL" ‘ "_LSR" _ "MOVE" 

p "OR" - "ROL" ’ "ROR" * "RTS" ‘ "SUB" 

3020 DATA "ABCD", "BTST","DBcc", "EXG", "MOVEM", "MOVE 

PY ' "MULS" ’ “MULU" ’ "NEG" ’ "NOP" 5 "NOT" ’ "ROXL" , "“ROXR" ’ un 

RTE uo ' "RTR um . "SBCD" ’. n STOP ou , "SWAP uo ’ u TST u 

3030 DATA "“BCHG", "BCLR","BSET", "CHK", "DIVS","DIVU" 
* "ExT" ‘ "LEA" ; "LINK" ‘ "NBCD" ‘ "PEA" ‘ "RESET" = "Scc" = "TA 

Ss" '’ u TRAP" , u TRAPV u ’ "UNLK uo 

3040 DATA "ORG" . "END" 7 "EQu" ‘ "SET" ‘ "REG" A "Dc" ; "DCB" 
. "DS" 

3050 DATA "DO" ; "Di" - "po" * "ps" * "p4" . "p5" * "De" z "D7" A 

"Ao" ‘ "Al u : "AD" ’ "As" ’ "aq" ' "as" , "AS" ’ "Q7" ’ "pc" ’ "CCR" 
> "SR" 

30640 DATA "CC",4,"CS",5,"EQ",7,"F",1,"GE",12,"GT", 

14, wT" as Te" 15, "LS" e% oy is P 13, "MI" : 1i ; "NE" 145 up 

L" ' 10, uyu 20, “yvc" +8, "ys" 7 

3070 : 

3080 DEFine FuNction find_symbol (operands) 

3090 LOCal i,address 

3100 i=-1 


3110 REPeat loop 


3120 i=i+1 
3130 IF operand$(1 TO 8)=symbol#(i) THEN 
3140 address=symbol _address (i) 


3150 EXIT loop 

3160 END IF 

3170 IF i=max_symbols THEN 
3180 address=2“33 

3190 EXIT loop 

3200 END IF 

3210 END REPeat loop 

3220 RETurn address 

3230 END DEFine find_symbol 


3250 DEFine PROCedure add_symbol (f#,pc) 
3260 LOCal i 

3270 i=-1 

3280 REPeat loop 

3290 i=itl1 

3300 IF symbol$(i)=""" THEN 

3310 symbol$(i)=f% 

3320 symbol _address (i) =pc 

3330 EXIT loop 

3340 END IF 

3350 IF i>max_symbols THEN 

3360 error _count=ferror (f$&" -— too many symbols 
",error_count) 

3370 EXIT loop 

3380 END IF 

3390 END REPeat loop 

3400 END DEFine add_symbol 

3410 =: 

3420 DEFine FuNction mnemonic (#) 

3430 LOCal i,j,s#,index,temp$ 

3440 index=-1 

3450 temp$=f¢ 

3460 s#=temp$(LEN(temp#)-1 TO) 

3470 IF s$=".B" OR s#=".W" OR s$=".L" OR s$=".5" T 


3480 temp$=temp$(1 TO LEN(temp#)-2) 

3490 END IF 

3500 s#=temp$ (LEN (temp$) ) 

3510 IF (s$="I" AND temp#<>"BHI" AND temp$<>"SHI" 
AND temp$<>"DBHI") OR (s$="Q" AND temp$<>"DBRA" AN 
D temp$<>"BRA" AND temp#<>"LEA" AND temp$<>"PEA"). 
OR s#="X" OR (s$="OQ" AND temp$<>"DBEQ" AND temp$<> 
"BEQ" AND temp$<>"SEQ") OR (s#="M" AND temp$="CMPM 
") THEN 

3520 temp$=temp#(1 TO LEN(temp#)-1) 

3530 END IF 

3540 FOR i=0 TO 43 

3550 IF temp$=mnemonic#(i) THEN index=i:EXIT i 
3560 IF mnemonic#(i)="Bcc" OR mnemonic$(i)="DBcc" 
OR mnemonic#(i)="Scc" THEN 

3570 IF #%="DBRA" THEN f#="DBF":temp$="DBF" 
3580 s$=mnemonic$ (i) 

3590 s$=s$(1 TO LEN(s#)-—2) 

3600 FOR j=0 TO 15 

3610 IF ##(1 TO LEN (s#&condition#(j)))=s#&condi 
tion$(j) AND LEN(temp#) =LEN (s$&condition#(j)) THEN 


3620 index=i 

3430 EXIT j 

3640 END IF 

34650 END FOR j 

3460 IF index<>-1 THEN EXIT i 

3670 END IF 

3689 END FOR i 

3690 RETurn index 

3700 END DEFine mnemonic 

3710 : 

3720 DEFine FuNction ferror (ferror$,ec) 
3730 LOCal i 

3740 BEEP 8132,128 

3750 PRINT #channel ,ferrors 

3760 i=ect+1 

3770 RETurn i 

3780 END DEFine ferror 

3790 : 

3800 DEFine PROCedure pseudo_op(1%,f%#,pc) 
3810 LOCal temp$,temp_address,i,length,mask,giles 
3820 IF #%="ORG" THEN 

3830 temp$=next_field$(lines) 

3840 temp_address=eval (temp) 

3850 IF temp_address=2*33 THEN 
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3840 error _count=ferror (whole_line$&" — oper 
and not defined" ,error_count) 

3870 END IF 

3880 pc=temp_address 


3890 END IF 
3900 IF £$="END" 
Ppc=pcto 
3920 END IF 
3930 IF f$="EQU" THEN 


THEN 


3940 temp$=next_field# (lines) 

3950 temp_address=eval (temp?) 

3960 IF temp_address=2*33 THEN 

3970 error _count=ferror (whole_lines$&" - oper 
and not defined" ,error_count) 

3980 END IF 

3990 change_symbol label%,temp_address 
4000 pc=pct+oO 

4010 ob ject$=cvs$ (temp_address, 4) 

4020 END IF 

4030 IF ##="SET" THEN 


4035 PRINT "SET not implemented" 
4040 pc=pct+o 

4050 END IF 

4060 IF £#="REG" THEN 

4070 PRINT "REG not implemented" 
4080 pc=pct+o 
4090 END IF 

4100 IF ##="DCB.B" 
#%="DCB" THEN 


OR f$="DCB.W" OR f$="DCB.L" OR 


4110 PRINT "DCB not implemented" 

4120 pc=pc+oO 

4130 END IF 

4140 IF f#="DC.B" OR f$="DC.W" OR f$="DC.L" OR f$= 
"DC" THEN 

4150 length=2-(f#(3 TO)=".B")+2"(f$(3 TO)=".L") 
4160 temp_address=0 

4170 temp$=next_field$ (lines) 

4180 ob ject$="" 

4190 REPeat giles 

4200 i="," INSTR temp 

4210 IF i=0O THEN 

4220 IF pass=1 AND eval ((temp#))=2°33 THEN o 
perr 

4230 ob ject $=ob ject $&cvs$ (eval (temp$) ,length 
) 

4240 temp_address=temp_address+1:EXIT giles 

4250 ELSE 

4260 IF pass=1 AND eval ((temp#(1 TO i-1)))=2 
“33 THEN operr ‘ 

4270 ob ject $=ob ject#&cvs$ (eval (temp$(i1 TO i- 
1)),length) 

4280 temp#=temp$(i+1 TO) 

4290 temp_address=temp_addressti 

4300 END IF 

4310 END REPeat giles 

4320 pc=pc+temp_address*length 

4330 


IF pass THEN PRINT #6,object$; 
4340 END IF 


4350 IF f$="DS.B" OR ##="DS.W" OR f$="DS.L" OR $= 


"DS" THEN 

4360 temp_address=eval (next_field$(line#) ) 

4370 IF ##="DS" THEN 

4380 Pc=pcttemp_address*2 

4390 ob ject $=F ILL$ (CHR$ (0) ,temp_address#2)°* 
4400 ELSE 

4410 Pc=pc+temp_address* (#$="DS.B")+temp_add 


ress#2* (f$="DS.W") +temp_address#4#(#$="DS.L") 
4420 ob ject $=F ILL$ (CHR (0) ,temp_address* (f$= 


"DS.B") +temp_address#2* (f$="DS.W") +temp_address*4* 
(#$="DS.L")) 


4430 END IF 

4440 IF pass THEN PRINT #4,object$; 
4450 END IF 

4460 END DEFine pseudo_op 

4470 : 

4480 DEFine FuNction dec2hex#(i,flag) 
4490 LOCal low,high,result¢ 

4500 IF i<O THEN i=65536+i 

4510 high=i 

4520 result¢="" 

4530 REPeat loop 

4540 low=(high/16-INT (high/14) ) #16 
4550 high=INT (high/16) 

4560 IF high=0 AND low=0 THEN EXIT loop 
4570 result#=hex$(lowt1) &results 
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4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 


, 4660 


4670 
4680 
4690 


END REPeat loop 
REPeat loop 


IF 
IF 
IF 


flag AND result$="" THEN result$="00" 
flag THEN EXIT loop 
LEN (result$) >=5 THEN EXIT loop 


results="0"&results 
END REPeat loop 
RETurn results 
END DEFine dec2hex¢ 


DEFine FuNction eval (t#) 
LOCal result 


4700 result=2*33 

4710 IF t$=""" THEN RETurn result 

4720 IF t$="*" THEN RETurn program_counter 

4730 IF "C" INSTR t# THEN RETurn expression ( (t$) ) 
4740 IF t$(1)="#" THEN t$=t$(2 TO) 

4750 IF t$(1)=""" THEN result=CODE (t$(2)) 

4760 IF (CODE (t$(1))>=48 AND CODE(t$(1))<=57) OR t 
$(1)="—-" THEN 

4770 result=t¢ 

4780 END IF 

4790 IF t$(1)="$" THEN 

4800 result=hex (t#(2 TO)) 

4810 END IF 

4820 IF result=2*°33 THEN 

4830 IF LEN(t#)>8 THEN t#=t#(1 TO 8) 

4840 result=find_symbol (t$) 

4850 END IF 

4860 RETurn result 


4870 
4880 
4890 
»" 

4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
S080 
5090 
3100 
5110 
3120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
35260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 


END DEFine eval 


DEFine PROCedure change_symbol (label$, address 


LOCal i 
FOR i=0 TO max_symbols 


IF label#(1 TO 8)=symbol$(i) THEN 
symbol _address (i) =address 
EXIT i 

END IF 

END FOR i 

END DEFine change_symbol 


DEFine FuNction count_operands (operand) 
LOCal result,i,outloop,loop 


IF 


operand$="" THEN RETurn O 


result=1:i=0 
REPeat outloop 
i=i+i 


IF 
IF 


i>LEN(operand#) THEN EXIT outloop 
oper and$(i)="," THEN 

result=2 

EXIT outloop 


END IF 


IF 


oper and$(i)="(" THEN 
REPeat loop 
i=i+1 
IF i>LEN(operand) THEN 
result=0 
EXIT loop 
END IF 
IF operand$(i)=")" THEN EXIT loop 
END REPeat loop 


END IF 


IF 


result=0 THEN EXIT outloop 


END REPeat outloop 
RETurn result 
END DEFine count._operands 


DEFine FuNction first_operand$ (operand?) 
LOCal i,temp#,loop,outloop 

i=0:temps="" 

REPeat outloop 

i=i+1 


IF 


operand (i)="," THEN EXIT outloop 


temp$=t emp#&oper and$ (i) 


IF operand#(i)="(" THEN 
REPeat loop 
i=itl 
temp$=temp$&oper and$ (i) 
IF operand$(i)=")" THEN EXIT loop 
END REPeat loop 
END IF 
END REPeat outloop 


RETurn temps 
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5410 END DEFine first_operand¢ 

5420 =: 

5430 DEFine FuNction second_oper ands (operand$) 

5440 LOCal i,temp#,loop 

5450 i=0:temps="" 

5460 i=LEN(first_operand# (operand?) ) 

5470 i=it+1:REMark avoid comma 

5480 REPeat loop 

5490 i=it1 

S500 IF i>LEN(operand#) THEN EXIT loop 

5510 temp$=temp$koper and$ (i ) 

5520 END REPeat loop 

5530 RETurn temp? 

5540 END DEFine second_operand¢ 

S550 : 

5560 DEFine FuNction operand_type (oper and?,fields, 
sd$) 

5570 LOCal i,result,temp,t¢ 

5580 result=0 

5590 IF operand$="CCR" OR operand#="SR" OR operand 

$="USP" THEN RETurn result 

5600 IF count_operands (operand#)=0 THEN RETurn res 

ult - 

5610 IF LEN(operand) >1 AND NOT "(" INSTR oper ands 
THEN 

5620 temp=eval (operand$(2 TO)) 

5630 IF operand$(i)="#" THEN 


3640 IF temp>=-32768 AND temp<=32747 AND NOT in 
side(".L",field*) THEN 

5450 result=12 

5460 ELSE 

5670 result=13 


5480 END IF 

5690 END IF 

3700 END IF 

5710 IF result<>O THEN RETurn result 

5720 FOR i=0 TO 7 

5730 IF operand$=symbol$(i) THEN 

5740 result=1 

5750 EXIT i 

5760 END IF 

5770 END FOR i 

| S780 IF "MOVEM" INSTR fields THEN result=0 
5790 IF result<>0 THEN RETurn result 

5800 FOR i=8 TO 15 

5810 IF operand$=symbol$(i) THEN 

5820 result=2 

5830 EXIT i 

5840 END IF 

9850 END FOR i 

5860 IF “MOVEM" INSTR field THEN result=0 


5870 IF result<>0 THEN RETurn result 
5880 FOR i=8 TO 15 


5890 IF operand$="("&symbol#(i)&")" THEN 

5900 result=3 

5910 EXIT i 

5920 END IF 

5930 END FOR i 

3940 IF result<>0 THEN RETurn result 

5950 FOR i=8 TO 15 

5960 IF operand$="("&symbol$(i)&")+" THEN 

5970 result=4 

5980 EXIT i 

5990 END IF 

6000 END FOR i 

6010 IF result<?>0 THEN RETurn result 

6020 FOR i=8 TO 15 

6030 IF operand$="—("&symbol$(i)&")" THEN 
6040 result=5 

6050 EXIT i 

6060 END IF 

6070 END FOR i 

6080 IF result<>O THEN RETurn result 

6090 IF "“(A" INSTR operand THEN 

6100 FOR i=8 TO 15 

6110 IF operands (LEN(operand#)-3 TO)="("&symbol$ (i 
.&")" THEN result=6:EXIT i 

6120 END FOR i 

6130 END IF 

6140 IF result<>0 THEN RETurn result 

6150 IF "(A" INSTR operand AND "," INSTR operand 
AND ")" INSTR operand THEN result=7 

6160 IF result<>0 THEN RETurn result 

6170 IF “(PC)" INSTR operands THEN 

6180 result=10 


6190 END IF 

6200 IF result<>0 THEN RETurn result 
6210 IF "(PC," INSTR operands THEN 
6220 result=11 

6230 END IF 

6240 IF result<>0 THEN RETurn result 
6280 temp=eval (oper and#) 


6290 IF (temp>=0 AND temp<=hex ("7FFF")) OR (tem 
p>=hex ("80000") AND temp<=hex ("FFFFF")) THEN 

6300 result=8:REMark absolute short 

6310 ELSE 

6320 result=9:REMark absolute long 


6330 END IF 

6340 IF field#(1 TO LEN("MOVEM"))="MOVEM" AND ("7" 
INSTR operand? OR "-" INSTR operand# OR reg (opera 

nd$,0)<>-1) THEN result=16 

6350 IF result=0 THEN result=9 

6360 RETurn result 

6370 END DEFine operand_type 

4380 : 

6390 DEFine FuNction overhead (type, f#,s%) 

6400 IF £$="MOVEQ" THEN RETurn O 

6410 SELect ON type 


6420 =1 TO 5 

6430 RETurn 0 

6440 =6 T0 8 

6450 RETurn 2 

6460 =9 

6470 RETurn 4 

6480 =10 TO iil 

6490 RETurn 2 

6500 =12 

6510 IF ##(1 TO 2)="LS" OR ##(1 TO 2)="AS" 0D 


R #$(1 TO 2)="RO" OR f$="TRAP" OR "Q" INSTR £# THE 
N RETurn O:ELSE RETurn 2 


6520 =13 

6522 IF ".W" INSTR ## OR ".B" INSTR £# THEN 
RETurn 2 

6530 IF "Q" INSTR f# THEN RETurn O:ELSE RETu 
rn 4 

6540 =16 

6550 RETurn 2 

6560 =REMAINDER 

6570 RETurn oO 


6580 END SELect 
6590 END DEFine overhead 
6600 : 


6610 DEFine FuNction short_branch (#,link, operand 
6620 IF link<>4 AND link<>5 AND link<>6 THEN RETur 


6630 IF f#(LEN(##)-1 TO)=".S" THEN RETurn 1 

6640 IF (eval (operand) —program_counter)<-126 OR ( 
eval (operand®) —program_counter) >129 THEN RETurn oO 
6650 RETurn 1 

6660 END DEFine short_branch 

6670 =: 

6680 DEFine FuNction branch (f#,link) 

6690 IF link<>4 AND link<>S AND link<>4 AND link<> 
22 THEN 

6700 RETurn 0 

6710 ELSE 

6720 RETurn 1 

6730 END IF 

6740 END DEFine branch 

6750 =: 

6760 DEFine PROCedure reset_pointer (4) 

6770 close_file f# 

6780 open_file f¢ 

6790 DELETE outfilet 

6800 OPEN_NEW #6,outfilet 

6810 END DEFine reset_pointer 


6830 DEFine PROCedure print_object (os) 

6840 LOCal i,j,temps 

6850 IF o¢=""" THEN 

6860 RETurn 

6870 ELSE 

6880 IF LEN(o#)>10 THEN j=10:ELSE j=LEN(o#) 
6890 PRINT #channel," "3 

6900 FOR i=i TO j 

6910 temp$=dec 2hex$ (CODE (o#(i)) ,1) 

6920 IF LEN(temp#)=1 THEN temp$="0"&temps 
6930 PRINT #channel , temp; 

6940 END FOR i 


QL User/April 1985/45 


eee 


“UNLEASH YOUR OL” 


NEW SYSTEMS PACKAGES — NOW WITH — 
ODOS COMPATIBLE INTERFACE & DISK DRIVES 


CAN YOU GET THIS KIND OF SERVICE IN THE HIGH STREET? 
WE PROVIDE FULL TECHNICAL ADVICE & AFTER SALES SUPPORT. 


WE 
EVEN FIT. 
MAINS 


FACTORY- PRINTERS 
_ TESTED ALL SET UP 
INTERFACE BEFORE CABLES READY 


PLUGS TO 


PROBLEMS DESPATCH SUPPLIED 
TO USE EVERYTHING 


TO YOU 


PRINTER & MONITOR PACKAGE DEALS + OL OPTION 


MICROVITEC PHILIPS 
PRINTER CHOICE WITH COLOUR OR GREEN/AMBER 

MONITOR MONITOR 
Brother HRS + Mains Adaptor £425 £265 
Brother M1009 £459 £295 
Epson RX80F/T £585 £420 Printers are all supplied 
Epson FX80 £725 £590 with RS232C interface. 
Epson FX100 £869 £735 Monitors display full 85 
Canon PW1080A NLO £649 £495 columns of text. 
Daisystep 2000 £599 £445 
Brother HR15 £715 £569 
Epson DX100 £745 £590 


SINCLAIR OL SUPPLIED WITH ANY SYSTEM — £389 


NOW ADD DISK DRIVES! 


OL Disk Interface .........cccccccssscssesssessessessestesteeses £149 moniees FOR OL 
5 Vain. Computamate (200KB) ............ ee £299 mee ol 
Disk Drive + QDI (400KB) 0... -—. 2. ae 
+ Power Supply (1000KB) actonanostcdicacre haat £367 MONOCHROME: 
Dual 5Yin Disk Drive (400KB) ...............00 £459 PRIS: BM 7502 (GRGGI)! cscccoweccennvsnovecsvsssucrcesersnnesensstr £92 
800KB + ODI + Power Supply ........0...0cccsces £515 Philips BM7522 (Amber) uu... ccs eeeseeeeeeseeees £92 
(AIAB) x. sccccratrcesnitgenshiniieuk avcetnsintoansntioneanmensesenbaionnadsnte £574 net pa parr 

i nterlocking Storage Box for 10 Cartridges............ £5.95 
3¥2in Computamate (200KB) 2... £299 Epson RS232 WF. cece eee snenecs £30.00 
Disk Drive + QDI (400KB) «.......:...secerseeeen ESSE Epsom REZS2 UE ZG i ecnncsnnenninnnennnenrcininnnsnnunsnaniin £65.00 
+ Power Supply (1MB) .......:.:::cceeeeeeee £367 Miracle SystemiVP  sesscssasenmanmacescemsiey £39.95 


Prices include cable, manual. 


ALL PRICES INCLUDE VAT. 
FOR DELIVERY ADD £10 (Systems/Monitors). ADD £2 (Accys). 
Other Systems can be supplied on request. 


ZEAL MARKETING LIMITED 


VANGUARD TRADING ESTATE, STORFORTH LANE, 
CHESTERFIELD, S40 2TZ 
Telephone: 0246 208555 =Telex: 547697 
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Continuing our series Adam Denning 
looks at some elementary 68000 
Assembler commands and introduces 
exception handling. 

In the last issue we looked at the 
general make up of the QL’s 68008 
microprocessor and _ surrounding 
hardware, and discovered that it was 
more convenient to use binary and 
hexadecimal number systems as 
opposed to decimal. This isn’t the only 
difficulty we have to overcome. Asa 
microprocessor’s machine code is 
much less sophisticated than a high 
level language it is not possible to 
declare things like string variables, 
procedures and so on. An entirely 
different approach to programming is 
called for. 

To illustrate this we shall start by 
examining a few microprocessor 
operations. 


On The Move 


The most fundamental operation a 
processor can perform is to move data 
(ie numbers) from one place to 
another. The mnemonic used in 
68000 assemblers to signify data 
movement is MOVE. It gives us the 
power to move data just about any- 
where we like, in and out of memory 
and registers, and even to or from 
outside devices. 

In addition to being able to move 
information we can also perform 
basic arithmetic upon numbers held 
in memory or registers. The appropri- 
ate mnemonics for addition, subtrac- 
tion, multiplication and division are 
respectively ADD, SUB, MUL and 
DIV. Another operation which falls 
into this class is the comparison 
(CMP). This is really no more than a 
subtraction, but instead of storing 
the result for later use, the processor 
discards it, so that only the flags in 
the status register are affected. Com- 
parisons are used to aes code 
similar to BASIC’s IF .. . THEN 
statement. 

With each item of information held 
within the computer as a series of 
binary digits (bits) we also have a few 
instructions which permit us to man- 
ipulate each bit directly, known as 
logical operators, they are AND, OR, 
EOR and NOT. NOT is given one 


ACHINE 
CopET 


->-w0- 


operand (number to operate on) and 
inverts the state of each bit in that 
number, so that 1001 becomes 0110. 
We can tell each operation what size 
of data to work on, but the only 
options are 8, 16 and 32 bits. AND 
takes two operands and compares 
each bit of the first against the 
corresponding one of the second. If 
both are set to ‘1’ then the bit in the 
result is also ‘1’, otherwise it is ‘0’, ie, 
11110000 AND 

10101010 

10100000 

The operator OR takes two operands 
but sets the result bit to ‘1’ if either or 
both of the operands’ bits are ‘1’s. 
EOR stands for exclusive-OR, and is 
the same as OR except that the result 
is set only if one of the operands bits is 
set, not both. The ‘truth tables’ below 
show the results of each operation on 
one bit. 


AND Truth table 


Tinea 017] 


Input 2: 


These instructions are used for 
‘masking’ bits from an item of data, 
as AND will remove certain bits, OR 
will add them, and EOR will ‘toggle’ 
them. Toggling switches the state ofa 
bit. If we had a number with bit 0 set 
and EORed it with 1, the result would 
have bit 0 reset. If we EORed it with 1 
again, bit 0 would be set once more. 

Again taking each number as a bit 
pattern, we can shuffle the bits right 
or left in a number of ways. If we 
shuffle them left and fill the empty 
bits with zeros, this is called a ‘left 
shift’. The mnemonic is LSL. If we 
shuffle the bits right and fill the 
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empty bits with zeros, it’s called a 
‘right shift’, and the mnemonic is 
‘LSR’. However, as numbers can be 
signed, in which the top bit signifies 
the sign (0 = plus, 1 = minus), we 
often want to shift right but preserve 
the sign. This is called ‘arithmetic 
shift right’, and the mnemonic is 
‘ASR’. If we examine the process 
closely, we see that shifting left is 
equivalent to multiplying the num- 
ber by two to the power of the number 
of shifts, and shifting right is equiva- 
lent to dividing by two to the power of 
the number of shifts. 

We can also shuffle the bits in a 
slightly different way. If, after shuf- 
fling, we put the old value of the 
highest bit in the lowest, we’re doing 
a ‘rotate right’, and the mnemonic is 
‘ROR’. Shuffling left and then putting 
the old value of the lowest bit into the 
highest is called ‘rotating left’ and 
has the mnemonic ‘ROL’. The figures 
below should make these processes a 
little clearer. 


Bit numbers, where n = 7,15 or 31 


Into C 
and X flags 
Figure 4— logical shift left. 


Bit numbers, where n = 7,15 or 31 


Into C 
and X flags 
Figure 5 — logical shift right. 


Bit numbers, where n = 7,15 or 31 


nto C 
and X flags 
Figure 6 —arithmetic shift right. 


Bit numbers, where n = 7,15 or 31 


Into carry 
flag 


Figure 7— rotate left. 


Bit numbers, where n = 7,15 or 31 


Figure 8 — rotate right. 


Into carry 
flag 


Shifts and rotates can be performed on data sizes of 8, 
16 or 32 bits, and from 0 to 63 operations can be 
performed in one instruction. Two more rotates exist, 
ROXL and ROXR, which incorporate the extend flag 
in the rotation. 


Rotating and shifting are useful for 
their mathematical properties as well 
as for such tasks as smoothly scroll- 
ing graphics across the screen. 


BRAnch Line 


One of the most unnecessary 
keywords in SuperBasic is GOTO, as 
it can be circumvented using the 
various procedures, functions and 
select statements. Machine code does 
not have any of these ‘structured’ 
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Figure 9 — Table of 68000 mnemonics for conditional branching. 


elements though, so the equivalent of 
a GOTO is very important. This takes 
two forms. The JMP command per- 
mits us to jump to an absolute 
position in memory and the BRA 
command allows us to branch to a 
position relative to our current 
whereabouts in memory. Invariably 
the latter command is used as it 
enables you to write programs that 
will work no matter where they are 
loaded into memory. 

A number of variations on the BRA 
command are possible (see tables). 
These are similar to IF ... THEN 
GOTO or ON ... GOTO construc- 
tions in BASIC, except that the 
conditional tests are carried out in 
relation to the contents of the status 
register. 

The ability to go to a subroutine 
and then come back to where we left 
off is vital in machine code. The 
mnemonic for this is JSR, standing 
for ‘jump to subroutine’, or ‘BSR’, 
standing for ‘branch to subroutine’. 
When one of these instructions is 
met, the current value of the program 
counter is ‘pushed’ onto the A7 stack, 
so that it can be retrieved when the 
subroutine ends. The program coun- 
ter is then loaded with the address of 
the subroutine, and away it goes. The 
subroutine usually ends with a re- 
turn instruction, which has the mne- 
monic ‘RTS’. This ‘pulls’ the return 
address off the A7 stack and puts it 
into the program counter, so the 
program continues execution at the 
instruction after the JSR/BSR. Over- 
all, the effect is similar to the now 
obsolete GOSUB statement in Super- 
Basic. 


Taking Exception 


Learning an elementary set of 
assembler instructions is only the 
first step in writing machine code. 
The next is to get the microprocessor 
to obey them without interfering 
with the many other tasks it is 
involved in. To understand how this 
is done we must turn our attention to 
QDOS and its relationship with the 


68008 central processor. 

Last month, we talked about the 
status register, which is where the 
processor keeps all its flags. One we 
didn’t mention was the supervisor 
mode flag, or ‘S’ for short. This tells us 
(and the processor) which of two 
modes we are in. These are ‘user 
mode’ and ‘supervisor mode’. We 
normally run our programs in user 
mode, and can do almost anything 
apart from alter the top half of the 
status register. This half of the regis- 
ter keeps tracks of the system. We 
can only alter it by switching into 
supervisor mode and issuing what 
are known as ‘privileged’ instruc- 
tions. If we try to issue these in user 
mode, something called an ‘exception’ 
is generated. 

An exception is rather like press- 
ing BREAK when a SuperBasic prog- 
ram is running. However instead of 
stopping the program and reporting 
an error, it jumps to a particular 
location, puts the processor into su- 
pervisor mode, and executes whatev- 
er code it finds there. The location to 
which each exception jumps is gov- 
erned by the ‘exception vector’, which 
is an area of memory containing a 
table of addresses, one for each excep- 
tion. There are a lot of exceptions, 
and the one we would have invoked 
by trying to execute a privileged 
instruction is called the ‘privilege 
violation’ exception. 

The important thing to remember 
about an exception is that in putting 
us in supervisor mode it lets us reach 
parts of QDOS. Being able to do this 
means that we can use a host of 
ready-made routines which control 
such things as video display, sound, 
keyboard and even floating point 
arithmetic. Without exception we 
would have to more or less rewrite 
QDOS everytime we wanted to do 
something simple. With them, 
machine code programming is a lot 
easier and considerably more re- 
warding. Next month we examine 
exactly how to get at these routines, 
as well as look at the QL’s addressing 
modes. 


QL COMMPAK 
MULTI STANDARD INTELLIGENT 


MODEM 
AND PRINTER CONTROLLER 


ONLY £140 INC. 


Adds a second ‘Communications Processor’ to Your computer. 
Essential for PRESTEL operations on the Sinclair QL. 


Plugs into SER2 port of QL using QL serial cable (not supplied). 
Acoustic Coupler accepts phone handset for quick and simple 
connection to standard telephones or Statesman inphones (please 
specify). Direct Connect version available at £160 inc. Acoustic 
Coupler may be converted to Direct Connect for £20 inc. 


Modem speeds—300/300, 1200/75 (Prestel), 75/1200, 1200/1200 
Standards—Bell 103/113, CCITT V21, CCITT V23 
300 Baud Modes—Originate or Answer 
1200 Baud Modes—Standard or Equalized (for noisy lines) 


On board Microcomputer controls speed conversion, buffering and 

Modem operation. Recognises over 20 software commands with 

‘Help Menu’. EPROM firmware allows for future developments. In 

1200/1200 Mode, Micro uses ‘Packet’ techniques to avoid collisions 
and allows fast data transfer between COMMPAK Users. 


Printer mode provides Serial to Centronics conversion. Uses 
standard printer cable (available at £15 inc.) Modem ‘Log’ function 
copies 300 Baud line data to printer. 


Comes complete with instructions. Simple QL Terminal Emulation 
software available FREE if microdrive supplied, else £2. 


Please send for details or phone 0792 473697. 


Make cheques/PO's payable to COMMPAK DATA. Prices include 
VAT & p&p. Allow 14 days for delivery. 


COMMPAK DATA 


13 BEECHWOOD ROAD, UPLANDS, 
SWANSEA SA2 OHL 


Garry Marshall 


INTRODUCING THE 
SINCLAIR QL 


with a foreword by Nigel Searle, 
Sinclair Research Ltd 


Explains how the QL works and what you can do with 
it. The book is aimed at the first time user of the QL, the 
complete newcomer to computing and the experienced 
user who wants to get his QL up and running as quickly as 
possible. 


175 pages __ illustrated £6.95 paper 


ORDER FORM 
to HCP, 17-21 Conway Street, London WIP 6JD 
Please send me........ copy/ies of INTRODUCING THE 


SINCLAIR QL (SBN: 09 158941 X) at £6.95 each POST 
FREE in the UK. 


| enclose my cheque/postal order for £.............. 
payable to Hutchinson Computer Publishing. 


Name 


Address 


AATUNANUEAUAAUAAAAEAAT AT 


please add £1.00 per copy for overseas orders IIH Dp IP 


QL BARGAINS 


Prices include VAT and carriage 
Psion Chess £16  4Microdrive carts 
Transform box for 20 cartridges 
10 Microdrive carts + Transform box 
Serial cable (S) £11 


Brother HR65 (S) 
Shinwa CPA80P (P) 
Epson RX80FT (P) 
Taxan KP810 (P) 
Smith Corona TP-1 (S) 


Brother M1009 (S&P) £196 
Mannesman Tally MT80 £219 
Cannon PW1080A (P) 

Daisy Step 2000 (P) 


MONITORS 
Microvitic CUB 1451/DQ3 


Philips Hi-res monochrome 


Please call for latest information 
eg. OEL, COMMPAK 


DISK DRIVES 


Computamate QL disk interface 
Computamate 51/4” dual disk drive system 800KB 


10 double sided, double density disks 


SOFTWARE 


Please call for latest prices and information 


STRONG COMPUTER SYSTEMS 


Bryn Cottage, Peniel, Carmarthen, Dyfed, SA32 7Du. 


Tel: (0267) 231246 for assistance anytime!!! 
PRINTER 


() a INTERFACE 


* 12 month guarantee NEW 
* Connects QL to any LOW Ff 2 
CENTRONICS een mafibie printer [PRICE i 


* Fully self-contained with 3 metre cable. 
* Plugs directly into SER1 port and directly into printer. 
* Fully compatible with QDOS, SuperBasic, and 
PSION packages. 
SCREEN DUMP £4.99 INC 

* Copies QL screen image to printer. 
* Supplied on microdrive cartridge. 

DOUBLE EXPANDER £39.00 INC. 
* Connects up to 2 expansion boards to QL. 
* Ideal for RAMpack and DISC interface combination. 

DUAL JOYSTICK ADAPTOR £7.50 INC 

* Connects up to 2 Joysticks to QL. 
* Plugs into CTL ports. 
* For use with Atari/Commodore style Joysticks. 


CENTRONICS 


Please contact your computer dealer or send your order 
with cheque, direct to: 
MIRACLE SYSTEMS LTD 
Avondale Workshops 
Woodland Way 
Kingswood 
BRISTOL BS15 1QL 
(0272) 603871 ext. 210 Sinclair and QL 
are trade marks 
of Sinclair Research 


BN 
ACCESS orders welcomed 
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FREE with all Printers. QL users Printers Guide. Getting the best from your 
printer is not easy! 
ALL ORDERS DESPATCHED SAME DAY 
SELLING PRINTERS SINCE 4980! 


We supply a FREE Booklet wit § which explains how to obtain all 
the features available on your ter. Without this you Could waste many 
hours. Buy elsewhere ai pay far more and get far less 


DOT MATRIX MEMORY EXPANSION BOARDS 


EX VAT 


$82.00 
$199.00 


EX VAT 
£133.00 


INC VAT 
BROTHER HR5 $152.95 
SHINWA CPA 80 

(EPSON FX80: COMPATIBLE) 
EPSON RX80 

EPSON RX80 F/T + 

EPSON. FX80 F/T 

EPSON FX100 F/T 


INC VAT 


£94.30 


£185.00 $228 85 


£185.00 
£212.00 
£314.00 
£425.00 


DOT MATRIX PLUS NEAR LETTER QUALITY 


£212.75 
£212.75 
£244.80 
£361.10 
£488.75 


DISC DRIVES 
MICRO P DISK INTERFACE 
QQ DISK DISK INTERF. 
3 %" SINGLE DISK DRIVE (75) 
3 L-DISK DRIVE (4.5MB) 
5 %" SINGLE DISK DRIVE 200K 


£99.00 
£129.57 
£169.00 
£314.00 
£110.88 


£113.85 
£149.00 
£194.35 
£361.10 
£150.00 


KAGA TAXAN 810 


CANON PW 1080A (Special offer) 


KAGA KP910 
CANG@NEEse) 


QUENDATA 1420 
JUKI 6400 
EPSON 5X100 


£259.00 
£249.00 
£349.00 
. £349.00 


DAISY WHEEL 


£297.85 
£286.35 
£401.35 
£401.35 


MICROVITEC CUB 653 
FULL PACKAGE OFFER - 


£225.00 
£325.00 
£356.00 


£258.75 
£373.75 
£409.40 


9%" DUAL DISK DRIVE 1. 5B 
FREE — LOTS OF ASSISTANCE. + DISKS 


£347.83 £400.00 


MONITORS 
EX VAT 
£220.00 


INC VAT 
£253.00 


Sinclair QL. Microvitec Cub 653 
Epson RX80 F/T. Price includes all leads and interfaces. 
(Other printers also available) 


REC RETAIL (INC VAT) 
OUR PRICE (INC VAT) 
SHOWROOM OPEN-9 00 arn to 6 00 em DAILY 
9.00. am to.4 00 Em SATURDAY. 
DELIVERY PRINTERS/MONITORS [SECURICOR) £10 00 Other £1 00 


“QL RS232 INTERFACES 
EX VAT 


£32.50 
£27.00 


INC VAT 


£37.37 
£31.05 


£1070.00 
£899.00 


EX VAT 
£334.00 


INC VAT 


Printerland, Unit 27, Estaté Buildings, Railway Street, 
£384.10 ep 


SINCLAIR QL Huddersfield HD4 


ne Huddersfield 514105/687875 


SKETCH PAD 


PARALLEL PRINTER 
INTERFACE £34.90 x 


JOYSTICK ADAPTOR £ 5.90 x 


PARALLEL PRINTER 
INTERFACE 

Simply plugs into the ‘Ser |’ port of the 
QL and any centronics compatible 
printer (eg:- EPSON, CANON, OKI, 
Kaga, Juki etc.) 

works with PSION software and requires 
no special commands. Full instructions 
included. 


JOYSTICK ADAPTOR 


Enables any Atari compatible joystick 
(eg: Kempston, Quickshot) to be used 
with the QL joystick ports. 

All prices include V.A.T. and p & p within the U.K. Make cheques or postal orders payable to Sigma Research. 


£14.90 x 


SKETCH PAD 


A graphics design package allowing the 
user to create high resolution full colour 
pictures and diagrams using the cursor 
keys or a joystick. Features include:- 


* Drawings saved on microdrive can be 
redisplayed from within any Super- 
Basic program using simple procedures 
supplied on microdrive. 


Some applications include:- 


* Screen dump to any Epson compatible * Labels »* Signs * Flow Charts 
printer. * Graphics for Games 

* Microdrive save and load of screens. * Artists Drawing 

* Use of stipple gives a vast range of TO IO IOI OO kkk 
colours. SPECIAL OFFER 

* Graphics and text can be freely mixed. SKETCHPAD PLUS JOYSTICK 

* Automatic drawing of many shapes. ADAPTOR £19.95 


* Fillingofregularorirregularshapes ii ~auxxa yy yan xe Me Ry ey eNOS Ka 
any colour. 


Sigma Research— 


231 Coldhams Lane, Cambridge CB1 3HY. 
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Gareth Jefferson reviews a multitasking assembler/editor from a seasoned software house. 


Computer One of Cambridge have 
created an assembler/editor for the 
QL that offers all the tools an assem- 
bly language programmer is likely to 
need. It is, however, rather different 
in use from other assemblers readers 
may have used. 

Traditionally, an assembler is a 
stand-alone program that simply 


source code into machine code. Direc- 
tives in the source code, or commands 
available when the assembler is used, 
allow the machine language object 
code to be written to memory (and 
executed from there) or written as 
files on a mass storage device. 

The traditional assembly language 
programming sequence of activities 
wee therefore look something like 
this: 


e assembler. | 
oduce an object code 
of binary machine 


This kind of sequential activity can 
be time-consuming and frustrating. 
For example, ifthe source code fails to 


| assemble because of an error, the 


assembler will report it. The prog- 
rammer will then have to abort the 
assembly, invoke the editor, retrieve 
the document, locate and correct the 
error, save the document, leave the 
editor, invoke the assembler and try 
to assemble the source code again. 

The Computer One assembler is in 
many ways a considerable advance 
on this old-fashioned approach. 
Thanks to the power of the QL’s 
68008 processor, and the multitask- 
ing capabilities of the QDOS operat- 
ing system, the assembler and editor 
can both be run as tasks at the same 
time with SuperBasic. The program- 
mer can then use the QDOS CNTL-C 
command to switch input between 
jobs. 

This is a significant advance in 
user friendliness as far as the assem- 
bly language programmer is con- 
cerned, and can be likened to prog- 
ram development in BASIC (where 
source code can be edited and debug- 
ged at any time and run by simply 


typing RUN). In other words, Com- 
puter One’s assembler is really a 
programming environment; rather 
than just an assembler. Pascal prog- 
rammers who have tried Borland’s 
Turbo Pascal (available at present 
only under CP/M or MS-DOS) enjoy a 
similar:--programming environment 
and it is clearly the way of the future. 


Looking Glass 


Being able to use the editor, assemb- 
ler and SuperBasic simultaneously 
does bring problems of its own. 
Namely, how to display three sepa- 
rate sets of information on a single 
screen. 

When run, or more correctly, EX- 
ECd, Computer One’s assembler cre- 
ates a window in the centre of the 
display where commands may be 
entered and instruction or error mes- 
sages appear. This area of the screen 
is also used by the editor and QDOS, 
with the result that each window 
interferes with the other and it is 
easy to lose track of what job you may 
be switching to. 

Computer One have found a way 
around this problem which though 
satisfactory is somewhat inconsistent 
as it uses different commands for 
each job. If you are in the editor, for 
example and the screen happens to be 
overwritten with rubbish, hitting F4 
will refresh the display. In the 
assembler, instead of F4, the ENTER 
key is pressed whilst elsewhere nor- 
mal SuperBasic screen commands 
apply. Confusing to begin with but 
after a while you get used to the 
different commands. 

The manual states, reasonably 
enough that it does not attempt to 
teach assembly language program- 
ming but ironically fails to assume 
that you can write assembly lan- 
guage source code. It attempts to bea 
reference manual rather than a tuto- 
rial telling you what the program can 
do rather than how to use it. 

A better way would have been to 
start with a complete, short assembly 
language source code program. Then, 
show you how to enter it using the 
editor, save it as an asm file, how to 
edit it (eg by correcting a deliberate 
mistake) and assemble it using the 
assembler. This could then be fol- 
lowed by a concise description of the 
assembler’s syntax, a handy refer- 
ence listing of the 68000 mnemonics 
(which are the standard Motorola 
ones) and finally, a thorough index. 
This need not take up more than the 
38 pages supplied, but would turn 
purchasers into users much more 
quickly. 

The manual also contains an 
annoying typographical . error. 
Throughout, 1’s and lower case 1’s use 


the same character. Attempting to 
load Class instead of Class will result 
in the ‘not found’ error message. 

Finally, there is no index — a grave 
omission! 

In operation the assembler is fast, 
possibly reflecting the fact that it was 
itself written in 68000 assembly lan- 
guage and easy to use. It accepts 
standard mnemonics and a syntax 
very similar to Motorola’s. During 
assembly error codes are produced 
and the offending lines displayed. 
Particularly attractive is the fact 
that the error number will then 
reappear along with a full description 
of the error type beneath the offend- 
ing line in the editor, providing the 
source file is reloaded from disk or 
drive. As the assembler does not 
automatically abort upon encounter- 
ing an error this means that all errors 
will be documented in the editor, 
making it possible to correct all of 
them in one fell swoop. As for the 
error detection itself, various source 
code errors were put through and all 
were located and accurately di- 
agnosed. 

In order to fit both editor and 
assembler into memory certain sacri- 
fices have had to be made. Only a 
limited set of directives are supported |. 
(listed below). The omission of a GET | 
or INCLUDE command which auto- 
matically brings external source files 
is partially offset by. a merge-file 
facility in the editor. Nevertheless, 
macros are not supported and whilst 
provisions have been made for use 
with a linker, the actual program is 
not included. 


Easy Rider 


At £29.95 Computer One’s. assembler 
puts the emphasis on ease of use and 
speed. The absence of macros and a 
linker are unlikely to affect all but 
the most proficient programmers. 
Concurrency, the ability to edit and 
assemble simultaneously more than 
makes up for minor shortcomings in 
the manual and screen handling, and 
compensates for the limited number 
of directives available. This gives a 
professional edge to what is a modest- 
ly priced product. 

Computer One, Science Park, Milton 
Rd, Cambs (0223 862616) 


wassembler Directives 
Cc 


Define consta 

Define storage ‘ 

Define constant block 

Equate 

Align to word boundary 

eae ern 
xternal definitj 

IF... [ELSE]External defies 

... ENDIF Conditional assembly 


Well Assembled 


Anyone interested in 
programming the QL’s 
advanced Motorola 68008 
microprocessor is soon going to 
find out that this powerful and 
sophisticated chip is 
correspondingly complex to 
program. The hopeful 
programmer is going to require 
a good work of reference, and 
Osborne/McGraw-Hill’s 68000 
Assembly Language 
Programming by Gerry Kane, 
Doug Hawkins and Lance 
Leventhal, priced at £11.50 
should come top of anyone’s 
list. 

This is one in a well- 
established and respected 
series which tend to be found 
everywhere, from electronics 
departments in universities 
and polytechnics to the 
premises of commercial 
software development houses. 
They are comprehensive 
enough for the professionals 
while remaining easy-to-follow 
and readable for students and 
strangers to assembly 
language programming. They 
are also ‘compatible’ with one 
another in that they share the 
same structure and layout; 
work your way through one, 
and you'll be able to find your 
way around them all. 

Here, you will find 68000 
assembly language 
programming presented in 
exhaustive detail. The book 
follows a logical order, starting 
by looking into the 
fundamental concepts of 
assembly language 
programming, assemblers, 
68000 machine structure and 
assembly language. There is 
also a useful thumbnail sketch 
of high-level languages like 
Cobol and Fortran which 
summarizes their advantages 
and disadvantages, and serves 
as a timely reminder of why 
you are struggling with 
assembly in the first place. 
The next chapter deals with 
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BOOKMARKS 


With both serious and recreational programmers in mind 


Nicky Trevitt investigates the latest in QL literature. 


‘introductory problems’, based 
on the principle of learning by 
doing. This offers a series of 
practical programs 
demonstrating program loops, 
handling character-coded 
data, code conversion, 
arithmetic problems, tables 
and lists. Section three looks at 
more advanced topics, like 
parameter passing techniques, 
sub-routines, input/output and 
so on, again with plenty of 
example programs. 

Section four is to be found in 
all Lance Leventhal books—a 
guide to better programming 
and program development, 
indispensable for all serious 
programmers. It offers advice 
on such matters as problem 
definition, program design, 
flowcharting, structured 
programming, top-down 
design, documentation, 
debugging, testing and 
maintenance and re-design — 
pretty definitive stuff. 

The reference part of the 
book starts with section five, a 
complete guide to the 68000 
instruction set which presents 
each instruction individually 
and in detail. This information 
is summarised in the 
appendices, which also include 
68000 instruction codes and 
instruction object codes. 

I was left with one 
reservation: the lack of even 
minimal hardware 
information. The authors get 
round this by suggesting that 
you read McGraw-Hill’s An 
Introduction to 
Microcomputers, Volume I— 
Basic Concepts before 
attempting this book, which 
would provide you with the 
necessary basic computer 
knowledge, including 
addressing methods and the 
fundamental features of 
instruction sets. But I could not 
help feeling that some of this 
information could have been 
provided within the book itself 
—it seems ridiculous that a 
heavy weight volume on the 
68000 chip does not tell you 
how many address lines there 
are. It would also have been 
useful to know about the 
different versions of the 68000 
(the QL’s 68008 is, after all, 
just one member of the family) 
and their differences. 

That said, it is unlikely that 
the 68000 programmer will be 
able to find a better treatment 
of the subject. 


Fair Game 


From assembly language to 
games is quite a leap, but then 
the QLis all about quantum 
leaps. 

QL Gamesmaster by Kay 
Ewbank, Mike James andSM 
Gee, all familiar names, is 
published by Collins at £7.95. 
The authors make it clear they 
wish to be taken seriously. This 
book, they solemnly state, is 
notjust a collection of games, 
nor another ‘learn to program 
book’. In fact, while most 
games books these days try to 
combine the two, this one 
manages to place all its 
emphasis on the ‘learn to 
program’ aspect; the games are 


almost by the way. 

There are six games 
altogether: Ant Hill, Leap 
Frog, Frogling, Snake (yes, 
that snake), Tadpole, and 
Snakes and Ladders. Each 
chapter looks at the game from 
the point of view of the 
programmer rather than the 
player; the techniques are 
analysed and you are shown 
how to write your own 
procedures to perform specific 
tasks. The book ends witha 
brief look at ‘becoming a 
master programmer’, offering 
rather repetitive advice which 
can be found in practically any 
programming book these days. 

If you’re looking for 
adventure, Sinclair QL 


Adventures could be for you. 
Written by Tony Bridge and 
Richard Williams, priced at a 
reasonable £5.95, this provides 
you with your very own 
adventure generator, no less. 
The book starts by reviewing 
the adventure scene, past and 
present, an exercise that would 
only be of interest to real dyed- 
in-the wool adventure hacks. 
This does, however, include a 
look at the adventure games 
available on the machine. 
Most of the book is taken up 
by the adventure generator, 
QLAG, which provides a 
framework for an adventure 
program, and by QLAD,a 
database program to be used in 
conjunction with QLAG to 


provide the details of your 
adventure. Finally, thereisa 
hurried chapter on how to use 
the QL’s graphics to create 
monsters, or whatever, to 
enliven your program. 

Well, it certainly beats 
Snake. 


Light Complement 


Understanding the 68000 by 
Leon Heller complements the 
more heavyweight McGraw- 
Hill reference book. It’s light, 
not to say skimpy, and feels 
expensive at £7.95, but fills in 
some of the holes—thereisa 
great deal of practical 
information on 68000 
hardware, for example, anda 
useful little chapter on the 


differences between the parent 
chip and the QL’s 68008. 

This is aimed squarely at 
hobbyists and home users who 
want to find out more about the 
mysterious inner workings of 
their machine. But as the 
author admits, the book is only 
an introduction, albeit a 
practical and readable one, toa 
highly complex subject, so 
don’t expect too much. To make 
any sense of it at all, you will 
need some knowledge of a 
high-level programming 
language such as BASIC, 
although no familiarity with 
assembly is assumed. 

All the chapters are brief. 
There’s a quick look at the 
68000 family of processors, 
chapters on 68000 
architecture, signals and bus 
operation, and a simple 
‘project’ to build —a ‘simple 
68000 system’. This, we are 
assured, will take little more 
than a weekend to build, but be 
warned —it is assumed you 
know how to build an 
electronic circuit. 

There’s a quick dip into 
assembly language 
programming itself, wherein 
the book explains how to enter 
asimple program into the text 
editor to create.a source code 
file, and how to use the 
assembler to translate the 
source code into an executable 
object code file. Itis made clear 
at this point that the book, 
while quite probably cashing in 
on the fact that a 68000- 
derived chip has turned up in 
the QL, is not aimed at QL 
users in particular —this 
chapter assumes you are using 
aCP/M-based system witha 
text editor such as Wordstar. 

The section dealing with the 
instruction set is a rather 
rough and ready introduction 
to the vast number of 
instructions available. But the 
author is quite honest about 
this, saying he refers only toa 
subset of the instruction set— 
thatis, he uses just three of the 
14 addressing modes. 

Allthis newly acquired 
knowledge can be put to use by 
developing a ‘monitor’, a 
program that allows you to 
examine and modify the 
contents of selected memory 
locations and execute 
programs residing in memory. 

Finally, there is a summary 
of the 68000 instruction set 
and the necessary appendices, 


| BOOKMARKS | 


but for an exhaustive reference 


guide, you'll have to look 


elsewhere. 


Print Primer 


Everyone needs a printer, and 
a lot of people have opted for 
the high-profile, Miss World- 
promoted, cheap Epson dot 
matrix range. If you have 
invested in an Epson, or are 
thinking of doing so, you may 
be surprised to find how much 
more it can do than just print. 

Susan Curran spends a lot of 
time explaining exactly what it 
can doin Get More from the 
Epson Printer, published at 
£7.95 by Collins. The sheer size 
of the book with its 160-plus 
pages may indeed frighten you 
off altogether, but stick with it. 
There’s an awful lot of 
information here which is at 
worst useful-to-know-in-case, 
and at best indespensable. 

The book starts by 
introducing the Epson family, 
which version is best for which 
tasks, how much they cost (in 
September 1984) and so on. 
There’s a chapter on starting to 
use your printer — and if you 
thought it was simply a matter 
of plugging in and switching 
on, you thought wrong— and 
another, vital, one on 
interfacing the printer to your 
computer. And that’s not 
necessarily as easy as it sounds 
either. 

Other chapters cover 
controlling the printer, using 
special typestyles, initializing 
routines and printer drivers, 
character sets and user- 
defined characters, bit-image 
graphics and screen dumps, 
additional utilities, printer 
buffers, stationery ...surely 
everything you could ever 
possibly want to know. 

Illustrations include sample 
printouts, and lots of 
explanatory programs (Epsons 
are programmable) some at 
least of which are in QL 
SuperBasic. 

It’s a daring project —I 
haven’t come across many 
books devoted solely to one 
printer—and I’m not sure that 
computer users are that 
interested in the machinations 
of this particular piece of 
equipment. Butif you find your 
printer manual less than 
satisfactory, you could do alot 
worse than keep this ona 
handy shelf. 
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TREMSFERM LT. Computer hecoscode 


ZX Specirum and QL 
Microdrive Storage Box ™ 


|__1 @ Designed to match QL and Spectrum Mi 
| @ Holds 20 cartridges and index cards 


| @ Fully interlocking a 
Available Now SS 
QL Centronics Interface ..............$39.95 
GIL IDUSHCSVET oss. maclaceta ves. £5.00 


——— 


gy ig 


Available from selected 
WH Smith's and leading 
computer shops 


‘[4@) TRANSFORM LTD. (Dept.QL) 089283 4783 
‘Swatiands; Lucks Lane, Paddock Wood, Kent TN12 6QL. 


4 
Wwe also supply printers, monitors, labels, a 
ribbon and listing paper. 


‘Transforming Office Machines 


on : QL User is currently in 
Se - possession of a Brother EP44 


Personal Electronic Ptinter electronic typewriter, 
_ _ donated by Zeal marketing to 
. | _ be auctioned in aid of the 
Ethiopian Appeal. 


The EP44 retails for around 
£220, but we will accept the 
highest bid (over £120) 
phoned into these offices 
between 9.45am and 10.00am 
on Monday 25th March. 


All callers should ask for 
extension 2463, leave their 
name, number and bid. 


At exactly 10.00am we'll stop 
taking calis and the best offer 
received will secure the 
typewriter in exchange fora 
cheque made out to the 
Famine in Africa Appeal. 
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PSION 2.00 


Psion’s new bundled software — a change for the better? 


Dr Andy Carmichael assesses the improvements. 


The QL was launched as a package 
including four applications programs 
designed to bring professional com- 
puting within reach of the masses. 
The enthusiasm surrounding the 
launch gave way to bitter disappoint- 
ment when, after a considerable de- 
lay in the machine’s delivery, anxious 
users discovered bugs in the operat- 
ing system, problems with the mic- 
rodrives and shortcomings in the the 
software. Over the last few months, 
however, circumstances have 
changed. For their part, Sinclair have 
ironed out QDOS and improved mic- 
rodrive reliability. Psion, on the other 
hand, have set about streamlining 
their software to overcome problems 
associated with a shortage of memory 
and a snail-like performance. The 
result of all this hard work is to be 
seen in version 2.00 of all four pack- 
ages and from a rapid test drive, it 
would seem they are very much 
closer to the quality profesional pro- 
duct we were all expecting back in the 
time before 28 days expired! 
Written in the QL’s native machine 
code as opposed to cross-compiled, the 
programs are considerably more effi- 
cient. They load in half the time and 
run faster. Additionally, they use up 
less memory time which is all the 
more surprising when you consider 
that commands are no longer over- 
laid from microdrive but are resident 
in memory and instantly accessible. 


‘Written in the QL’s 
native machine code, 
the programs are 
much more efficient’ 


Also included with the new set of 
packages are facilities for tailoring 
them to your particular system, (eg 
using floppy disks instead of microd- 
rives, or a different printer interface) 
and for redefining the sort order of 
the character set (for Abacus and 
Archive). The documentation too is 
spruced up with errors corrected and 
layout and wording improved. 

So on to the test drive itself and 
first into the slot goes Quill 2.00, the 
word processor. The first thing that 
strikes you is the loading time or 


rather lack of it. No need for a coffee 
break as each package now loads in 
under 20 seconds (see table) — re- 
markable when one considers this 
only gives time for tape in the car- 
tridge to loop round 3 times. 

On loading, Quill 2.00 moves 
directly from a single copyright 
screen to the word processing display, 
secondary screens or messages 
asking you to put a data cartridge in 
micredrive 2 no longer appear. In 
fact, version 2.00 runs quite happily 
minus data cartridge until you reach 
1000-1500 words, at which point you 
get the following message: 

File too big for memory 

Transferring to microdrive 

Ensure there is a formatted car- 

tridge in mdv2_ 

Press SPACE to continue 

7 ESC to remain as a memory 

ile 

Error-type messages like this used to 
portend disasterous situations such 
as corrupted files or lost documents. 
Fortunately, this is no longer the 
case, hitting SPACE sends the mic- 
rodrive whirring while it creates a 
temporary file (called def_tmp rather 
than def_doc) and once this is done 
you can continue typing. With large 
document files a similar message will 
display when the microdrive is close 
to full and pressing SPACE will 
return you to the command display 
free to save the document. With 
earlier versions you often had little 
choice other than to reset your QL 
and lose many hours work. 

The benefit from having all com- 
mands resident in memory is soon 
apparent. Previously it had always 
seemed self-defeating that com- 
mands geared to speeding up opera- 
tions, for example Goto, would them- 
selves take up valuable time being 
loaded in from microdrive and over- 
laid. Now with the new version key 
presses such as <F3 GT> and <F3G 
B> zip you from one end of a long 
document to the other in a matter of 
seconds. (Try scrolling from one end 
to the other using the cursor keys and 
you're likely to be there for some 
time, even on version 2.00!) 

The Copy and Erase commands 
have also been improved. These com- 
mands were extremely unreliable in 
version one and could only be used 
after a document had been backed up 
for safety’s sake. Their worst feature 


(apart from a tendency to mix up 
lines on the display!) was the fact that 
when highlighting the block of text to 
be copied or erased, the cursor could 
only move forwards. If you went too 
far you had little choice other than 


starting all over again. This has now 


been remedied and the commands, 
whilst they remain slow to imple- 
ment, are at least bug free. Finally, 
despite improvements, command 
structure and key presses remain 
generally the same so that those 
acquainted with the old versions will 
have no difficulty changing over to 
the new. 


‘The benefit from 
having all commands 
resident in memory is 
soon apparent’ | 


Sadly one bug was discovered hid- 
den away in the system. If Quill 
cannot open the printer driver file for 
any reason (we had removed the 
Quill cartridge from its drive) an 
error message is given and the prog- 
ram stalls until QL is reset. Moral of 
the story — always save the file before 
printing. 

Apart from this one blemish, the 
overall feel of the package is now 
more professional, The improve- 
ments made to Quill bring it up to the 
business user’s level rather than that 
of a home computer dilettante. In the 
opinion of our reviewer, this: alone 
makes the QL worth its £400 price 
tag. 

Four auxillary BASIC programs 
are supplied with Psion’s packages. 
Firstly INSTALL_BAS,also avail- 
able with version one, installs the 
printer driver with details for bold 
printing and underlining and options 
such as continuous or single sheet 
stationery, etc. There are now 8 
makes of printer (previously 2) for 
which predefined settings are avail- 
able and an option to choose a parallel 
or non-standard port rather than the 
RS232. 

Next we have CONVERT_BAS 
and SCRCON_BAS for converting 
version one printer drivers and Arc- 
hive screens respectively to a format 
which is compatible with version 2.00. 

Finally CONFIG_BAS is the prog- 
ram which configures the packages 
to your system, both in terms of 
hardware (eg using other devices as 
default options) and the sorting order 
of characters. It is this latter facility 
which adds a new dimension to Aba- 
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cus and Archive operations. 

Why might you want to change the 
sort order? One obvious reason is to 
ensure that names will list in 
alphabetical order irrespective of 
whether they are printed in upper or 
lower case. Another reason might be 
that you wish to use the foreign 
character set with its accents and 
double characters. This character set 
can be obtained by pressing certain 
keys with CTRL or CTRL and SHIFT 
together, and is now available for use 
by Archive, Abacus, Easel and Quill. 
To achieve the correct ordering of the 
characters for sorting you have to 
load and run CONFIG_BAS (from 
the Abacus cartridge) and put all 
lower case and accented letters next 
to the upper case letter instead of in 
their ASCII standard position. It 
takes time to do, but then you should 
only have to do it once and for some 
applications it could prove important. 

Lack of memory was the main 
criticism lodged against Archive. Toa 
lesser degree the same was true of 
Abacus where business users found 
the 1170 cells available on the 
spreadsheet insufficient for complex 
analyses. In the case of Archive, the 
lack of memory does not affect the 
amount of data a single record can 
store or the number of fields allowed, 
but it does affect the total number of 
records that can be accessed. Memory 
is also required for procedures and 
user-defined screen formats so if 
these are used the number of records 
accommodated is further reduced. 
The reason for the limitation is that 
Archive keeps in memory an index of 
the position of each record. If the 
database file is unsorted each record 
requires six bytes of memory. A 
further 8 bytes per record are re- 
quired for each sort field (up to a 
maximum of 4 fields). 


‘The improvements 
made to Quill bring it 
up to the business 
user’s level’ 
pet aes oe | 


Version 2.00 of Archive gives us 
another 8K of memory to play with 
and runring the following simple 
procedure, which adds records to a 
file one at a time, shows just how 
many extra records can be fitted in. 
proc fill 
while 1 
append 
print count (), memory () 
endwhile 
endproc 
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A file with four sort fields runs out 
of memory on version one at 303 
records, whereas version 2.00 allows 
511 records. The number of records 
possible under the two versions are in 
proportion to these figures for files 
with fewer sort fields. If only one field 
is used for sorting, 1391 records can 
be accomodated in version 2.00 and 
for an unsorted file, the total is about 
3000 records. The extra available 
memory will come in handy in many 
database applications, but if you need 
more records than this then the only 
options are to split data into totally 
separate files or to buy memory 
expansion. 

Filling up memory by using the 
example procedure above means that 
Archive’s capacity to recover from 
running out of space can also be 
tested. Under version one this was 
almost always fatal and resulted in 
the corruption of any data files that 
happened to be open — very frustrat- 
ing! Happily, version 2.00 does give 
you the chance to close data files after 
hitting the end of memory, but our 
recommendation is to do this at once 
as a number of-other functions (eg 
edit) do not appear to work properly 
after this and in our case attempts to 
delete a number of records from the 
data file locked the system. 

One other bug or undocumented 
‘feature’ concerns the use of multiple 
data files. The ‘current’ file is defined 
as the last file to be opened and in 
earlier versions this could only be 
changed by the ‘use’ command. In 
version 2.00 however, the current file 
is changed by any command which 
references another logical file name. 
If you have procedures which rely on 
this feature of version one, they'll 
have to be modified to work correctly 
under version 2.00. 

There are a number of other minor 
differences in the workings of some of 
the commands. For example pressing 
<ENTER> after the last field when 
using INSERT or ALTER adds the 
record to the file, instead of taking 
you back to the first field and waiting 
until F5 is pressed. A sensible change 
this, and one which is documented. 

Overall, the most noticeable and 
important change to Archive and 
Abacus is the addition of another 8K 
of memory which in the case of 
Archive is much needed. The in- 
crease in speed of commands is not so 
noticeable as with Quill but is 
achieved to some extent. 

Easel too, in its new form has more 
available memory though like Quill 
several commands, particularly 
those where a set of options displayed 
on screen, are now resident in 
memory once it’s all loaded. 


Additionally, there are two new 
printer drivers (JX80 and INTGX) 
supplied with the upgrade for screen 
dumps of graphs and figures. It is also 
possible to choose a different printer 
driver to the current default while 
using the print command. This is of 
limited use in Easel where the printer 
characteristics change only rarely. 
However, this would have been wel- 
come in Quill where it is quite incon- 
venient to install a different printer 
driver just for a change in print 
wheels, or cut sheets instead of con- 
tinuous forms. Perhaps we’ll have to 
wait for version 3.00? 


‘Version 2.00, unlike its 
predecessor, is worthy 
of the title professional 
software’ 


A number of the graph formats 
have changed slightly in Easel as 
have some of the commands. For 
example, using line format number 3 
the lines used to obscure each other 
when they overlapped, this is no 
longer the case. Also some of the 
command functions have been 
speeded up though their form re- 
mains much as before (ie, the redraw 
facility). The speed certainly has 
improved in Easel, for example when 
it has to redraw the figures. 

The four packages supplied with 
the QL have always been one of the 
most potent factors in favour of its 
purchase. With this upgrade Psion 
have put right all the major bugs 
which marred the early versions, 
speeded up and compressed the code 
to improve performance significant- 
ly, and improved the already sub- 
stantial documentation that accom- 
panies them. Version 2.00, unlike its 
predecessor, is worthy of the title 
professional software. What a shame 
it wasn’t this version that arrived 
with the machines this time last year! 


The updated versions are available 
with new QLs after 4th March or 
can be bought for £15 each (£50 for all 
four). 


*XNEW ZOOM FEATURE * INSTANT WINDOWS 
%*CURSOR CONTROLLED DRAWING BOARD 
*HI. RES. PRINTER DUMPS %* HEADINGS 
*UDG DESIGNER * PAINTBOX COLOUR 
FULL FILE MANAGEMENT %*& TURTLE 
GRAPHICS * SPOOL DRAWING TO 
BASIC LISTING ON PRINTER OR 
MICRODRIVE 


THE ULTIMATE QL GRAPHICS V 
BY GRAHAM KIRK 


£14-95 


+ £100 P&P 
NOW IN MOST GOOD COMPUTER SHOPS 


CLASSIFIED 


INVESTORS! 


Track your shares with “STOCKMARKET MANAGER” from Portfolio Software 
Facilities include: ¢ Simple entry of purchases, sales, prices etc. @ Port- 
folio valuation — analysed by investment type-comparison of performance 
against market. @ Calculation of % return on each investment. ¢ Assessment 
of Capital Gains Tax liability. ¢ Handles all investment types, including 
Traded Options. 
Orders/Cheques to: PORTFOLIO SOFTWARE, PO Box No. 15, London SW11 5RP No. of copies 
Please send: “STOCKMARKET MANAGER" (@ £39.95 incl. p&p. 
Information sheet (please enclose SAE) 


Name 
Address * 
QLU/Apr 


EXECUTIVE ADVENTURE 


Can YOU rise from lowly tramp to high flying 
executive, in this unusual modern day adven- 
ture? Pit your wits against puzzles, mazes; test 
your skills in money management and devious 
dealings. No dragons in this highly original and 
demanding adventure (except the secretary)! 


only £15 


INTERSOFT 
7 Richmond Road, Exeter 


Cidersoft 


Co-ordinates X)234 
Y ) 168 


PAPER [1] [2] [3] [4] 
INK = (1) (2) (3) [4] 


EIDERSOFT (QL) 
FREEPOST, PO BOX 54, 
ILFORD, ESSEX 
IG1 1BR. 


Tel. 01:478 1291 
Telex 8951807 


If you have written a QL program 
then phone us for the best deal 
in town. 


Dealers 
Please 
Phone 


Computer ONE 
Software for the QL 


A selection of quality 
software packages available 
directly from Computer One. 


PASCAL £39.95 


FORTH £39.95 


if ordered 
together 


cae cas95 £29.95 
£24.95 


MONITOR 


TYPING TUTOR £19.95 
Inclusive of VAT & P&P. 


Please send for full details or phone (0223) 862616 
To order, send name and address with cheque / EN to: 


COMPUTER ONE LIMITED 
SCIENCE PARK, MILTON ROAD, CAMBRIDGE CB4 4BH 


Dealer enquiries welcome 


Sinclair and QL are Trade Marks of Sinclair Research. 
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isnewregularfeatureis currently manufacturing 


designed to provide an hardware or supplying QL 
instantreferencechartfor software and would like to be 
QL information. included within this directory, 


Each month thelisting will just send details to ‘QL User 
be updated as new products Reference Chart’, Dept SE, QL 
and info are announced. User, Priory Court, 

Ifyou or your company are Farringdon Lane, EC1R3AU. 


HARDWARE INDEX 


Monitors 
Citadel Products Ltd 019511848 
MBS Data Efficiency = 0442 60155 
Kaga 
Microvitec PLC 0274 390011 
Microworld Computer & Video Centre 0293 545630/ 
Microvitec, Philips, Sinclair Vision 0273 671863 
Opus Supplies Ltd 01701 8668 
JVC 
Printerland 0484 514105/687875 
Strong Computer Systems 0267 231246 
Microvitec, Philips 
Technomatic Ltd 012081177 
Microvitec, Kaga 
Zeal Marketing Ltd 0246 208555 
Microvitec, Philips 

Printers 
Datasystems 014821711 
Star 
MicroPeripherals 0256 473232 
Canon 
Microworld 0293 545630/0273 671863 


Kaga, Epson, Smith Corona, 
Shinwa, MicroPeripheral, Quen-data, Juki 


Printerland 0484 514105/687875 
Epson, Brother, Kaga, Canon, Juki 
Strong Computer Systems 0267 231246 


Brother, Shinwa, Epson, Kaga, 
Mannesman Tally, Canon, Daisystep, Smith Corona 


Technomatic Ltd 01 2081177 
Epson, Kaga, Juki, Brother 
Twickenham Computer Centre 01891 4991 
Kaga, Ensign, Canon 
Zeal Marketing Ltd 0246 208555 
Brother, Epson, Canon, Daisystep 
Interfaces 

Cambridge Systems Technology 0223 323302 
Care Electronics 0923 777155 
Computamate Data Products 0782 811711 
Miracle Systems Ltd 0272 603871 
Printerland 0484 514105/687875 
Sigma Research 231 Coldhams Lane, Cambridge 
Technology Research Ltd 0784 63547 
Transform Ltd 089 283 4783 
Zeal Marketing Ltd 0246 208555 

Disk Systems 
Computamate Data Products 0782 811711 
Compware 0270 582301 
CST 0223 323302 
Medic Data Systems Ltd 0256 52703 
MicroPeripherals 0256 473232 
Printerland 0484 514105/687875 
Quest 04215 66488 
Strong Computer Systems 0267 231246 


Zeal Marketing Ltd 0246 208555 


TACCESS 


Modems 


Compak Data 13 Beechwood Road, Uplands, Swansea 

Medic Data Systems Ltd 0256 52703 

OEL 0768 66748 

QMOD 

Strong Computer Systems 0267 231246 
Memory Expansion 

Eprom Services 0532 667183 

Medic Data Systems Ltd 0256 52703 

Quest 04215 66488 

Simplex Data Ltd 01575 7531 

Extras 

Action Computer Supplies 01903 3921 

Mains spike eliminator ; 

Hidersoft 014781291 

Quicksoft 11 Joystick 

Management Science Ltd 17 West Hill, London 

QL Case 

Sigma Research 231 Coldhams Lane, Cambridge 

Joystick Adaptor 

Sinclair Research 0276 686100 

Power Supplies 

Transform Ltd 089 283 4783 


QL Dust Cover, Microdrive Storage Box, RS232 lead 


Zeal Marketing Ltd 0246 208555 
Printer peripherals 

Games 
Eidersoft 01478 1291 
QL Art 
Games Workshop 01965 3713 
D-Day 
Printerland 0484 513105/687875 
Psion Chess 
Psion 01723 9408 
Psion Chess 
Sinclair Research 0276 686100 
Psion Chess 
Talent Computer Systems 041 552 2128 
The Lost Kingdom of ZKUL, 


WEST, GraphiQL 


Utility Programs 


Accountancy Software of Torquay Sinclair Research 


QL Cash Trader 

Computer One 0223 86216 
Pascal, Forth, Assembler, Typing Tutor, Monitor 

GST Computer Systems 0267 231246 
QL Assembler, Q Jump, QL Toolkit Sinclair Research 
Harcourt Sinclair Research 
QL Touch ‘n’ go 

Metacomo 0272 81392 
Assembler, BCPL, Lisp 

MicroAPL 016220395 
Printerland 0484 514105/687875 
Metacomo Assembler 

Psion 01 723 9408/0553 
Quill, Abacus, Easel, Archive 

Quest 04215 66488 
Business Accounts 

Strong Computer Systems 0267 231246 
TR Computer Systems 093 924 621 
QL Payroll 


Publishers 
Adder 0223 277050 
Century 014344241 
Collins 01940 7070 
Granada 01493 7070 
Hutchinson 01387 2811 
Interface 9-11 Kensington High Street, London 
McGraw Hill 0628 23431 
MicroPress 0892 39606 
Melbourne House 01940 6064 
Prentice/Hall 0442 58531 
Sunshine 01 487 4343 

March ’85 
A QL Compendium Gandoff & Kinge 
(Addison-Wesley) 
QL Handbook Hartnell 
(Interface) 
Professional & Business Uses of the QL Lewis 
(Collins) 
QL Abacus Spottiswoode 
(Century) 
BASIC Programming on the QL Cryer & Cryer 
(Prentice/Hall) 
Quick QL Machine Language Giles 
(Melbourne House) 

February ’85 

The Working Sinclair QL Lawrence 
(Sunshine) 
Quantum Theory San, Katan & Rockman 
(Century) 
QL SuperBasic Wilson 
(MicroPress) 
QL Assembly Language Programming Opie 
(McGraw-Hill) 
QL Games Compendium Hartnell 
(Interface) 
The QL book of Games Hurley & Virgo 
(MicroPress) 


Dec/Jan ’84 


Introduction to SuperBasic on the SinclairQL Meadows 
(Hutchinson) 


Advanced Programming with the Sinclair QL Gandoff 
(Hutchinson) 
QL Quill Simon & Spottiswoode 
(Century) 
QL Easel Spottiswoode 
(Century) 
QL SuperBasic Berk 
(Granada) 
Assembly Language Programming on the 
Sinclair QL Pennell 
(Sunshine) 
Developing Applications on the Sinclair QL Grace 
(Sunshine) 
Artificial Intelligence on the Sinclair QL Brain & Brain 
(Sunshine) 

Oct/Nov ’84 
Desk-Top Computing with the Sinclair QL Miles 
(Hutchinson) 
Introducing the Sinclair QL Marshall 
(Hutchinson) 
Word Processing with the Sinclair QL O'Reilly 
(Hutchinson) 
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Write programs to unlock the multitasking power of your QL! 
Use Metacomco' s much acclaimed Development Kits to create the soft- 
ware for your QL: Use Assembler for its speed, and for access to the QL's 
many features; use BCPL for systems programming; writing games, 
utilities, and applications packages; use LISP for manipulating data 
structures, and for exploring the world of artificial intelligence. 


y 


ASSEMBLER £39.95 "i 


> Standard Motorola 68000 BCPL oe 

mnemonics. £59.95 “Si? 

> English error messages. > True compiler. 

> Produces code which can be > Multiple BCPL programs can run 

EXECed, andrunas a moncoriently s LISP £59.95 “oxo 
concurrent job. > Full runtime library includes > Full support of QL features 

> External references allow linkage | interfaces to QDOS graphics, file | including window graphics, and 

to high level languages. operations, window handling, etc. | screen handling. 

> Integral linker allows assembler | > Exception handling provides > Compatible with Acornsoft Lisp 
programs to be linked together. diagnostics for debugging. for the BBC micro. 

> Macro expansions. > Link loader allows linkage of > Interpreter. 

> Position independent, absolute | separately compiled segments. > Turtle graphics. 

or relocatable code can be produced.| > Assembler and BCPL modules | > Structure editor allows alteration 
> Conditional assembly. can be linked together. of data structures. 

> Large range of directives. > 32-bit variables use the fullQL | > Prettyprinter displays programs 


> Fully formatted listings. address space. 
> 30 character variable names and 


32-bit values. 


in structured format. 

> Tracer to aid in debugging. 

> Garbage collector automatically 
recovers spare memory space. 

> 28-bit integers and 250-character 
names. 

Phone today, or post this coupon 
to: Metacomco, 26 Portland Square, 
Bristol BS2 8RZ. 

Please send me: 


The Assembler 
Development Kit at £39.95 


Each language is supplied as a 
complete Development Kit 
which includes the software 
(on a Microdrive Cartridge), 
Metacomco's popular full 
screen editor, and user 
manual. 


The Metacomco Development Kits 
are available from HMV, Menzies a at 
and many other leading retailers, o e€ . 

mote. Development Kit at £59.95 


| The LISP | 
ne YJ eee i U Ct ae Development Kit at £59.95 
RK, U | TEL. NO. | enclose a cheque for £ ______or 


26 Portland Square, Bristol BS2 8RZ. debit my ACCESS/VISA Account No. 


Tel: Bristol (0272) 428781 PLETT TTT TTL 


“Existing registered users can obtain an upgrade. 
Card expiry date: 


Contact Metacomco for details. 
Price includes VAT, postage and packing UK mainland only. Delivery allow up to 28 days. QL5 
Past] 


QL & QDOS are the trade names of Sinclair Research Ltd. 
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Explore the ancient dwelling-place of 
the Dwarves — where the Wizard guards 
the last precious secret. 

Aclassic and complex text adventure 
with hundreds of locations and a huge 
vocabulary. Set in real-time with traps, 
tasks, puzzles and mazes — anda special 
note-pad feature to aid you. 


“the quality of the game is superb” 
Micro Adventurer 


PRICE 


£19.95 


+ 50p posiage and packing 


You are on the track of a notorious gang 
of bank robbers who have gone to ground 
near an abandoned mining town deep in 
Indian territory. Your task —to outwit and 
outgun the robbers, collect as much loot as 
possible and piece together clues on how to 
escape. 

Ademanding and exciting text adventure 
for the experienced games-player, using over 
200 words and as many phrases. There are 
over 130 locations to search — not all of them 
easy to find. Events happen in real-time 
outside your control—Indians charge, 
rattle-snakes slither past and robbers appear 
and shoot at you. How long can you survive? 


PRICE 


£19.95 


+ 50p postage and packing 
(Also on CBM 64, BBC & Electron) 


COMPUTER Sysi bMS 


CURRAN BUILDING, 101 ST JAMES ROAD, GLASGOW G4 0NS 
24 HOUR CREDIT CARD HOT-LINE 041-552 2128 


